wöchentlich 


Co 


Al, 


Comm 


Aktion Gomputer und Bildung 


Das CAL (Computer Aided 
Learning) wird nun von Soft- 
und Hardwareherstellern ge- 
fördert, nachdem die Bundes- 
bzw. Landesregierungen nur 
zögernd die notwendigen Mit- 
tel zur Anschaffung bereit- 
stellt. 

So kann in Zukunft an ca. 90 


nologien halten Einzug in 
das Klassenzimmer. 

Was in anderen Ländern 
längst Alltag ist, wird auch bei 
uns in Zukunft zu sehen 
sein: 

Klassenzimmer mit 
netzten Computern. 
Dies wird auch nötig sein, 


ver- 


uPe mi 
ODORE 
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denn die Entwicklung geht 
rasend voran. 


weiteren Schulen ein com- 
putergestützter Unterricht 
stat inden. die neuen Tech- 


Professionelle Textverarbeitung ist meist nur mit erheblichem 
Kostenaufwand verbunden. Die Software einiger Hersteller ist 
einfach zu teuer, andere wiederum nicht leistungsfähig 
genug. 

Die "Gompute mit’ veröffentlich für ihre Leser ein wirklich her- 
vorragendes Textverarbeitungsprogramm zum Nulltarif. 
Durchgehende Menueauswahl, guter Editor und viele Raffines- 
sen zum Ändern von Texten sind nur einige Leistungsmerkmale 
unseres Textverarbeitungsprogrammes zum Abtippen. 


Also dann, gleich anfangen auf Seite 29! 


- Neue Dysan Kopfreini- 


2,80 DM 


24 05 
2,80 sF 


i ET 
Ihe enake striken, F 


Mask of the Sun 


Heute in unserer Adventure-Ecke: 
Mask of the Sun — Amerikas S$uperhit nun auch in 
Deutschland. 


Exclusiv auf Seite 3. 


- Olympia Electronic Com- 
pact 2 mit Iti-Interface 

- Neue Software für alle 
Zielgruppen 

-2.500.000 Quickshot - 
Joysticks SVI - 


gungs-Diskette 

- Joystick ohne Kabel 

- CBS Computerspielpro- 
gramme 

- Telexstar. Fernschreiben 
mit dem Personalcomputer 
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Basic-Kurs Teil 4 


In der diesmaligen Lektion werden wir die Aufgabe des letzten 
Heftes lösen und uns weiter mit dem Erlernen der Befehle, die für 
das Arbeiten in Basic unerläßlich sind, befassen. 

In dieser Folge stellen wir Ihnen die For...Next Schleife vor. 


2 


Soft-Service 3 


Basic Kurs 
Teil 4 4 


Telex 


Ein Herz für Schüler... 5 


Neue Software für alle 
Zielgruppen 


Olympia electronic Gompact 2 
mit Iti-Interface 


Quickshot-Joysticks SYI-101 6 


Neue Dysan Kopfreinigungsdiskette 
Bietet mehr Reinigungszyklen 

pro Anwendung, bei geringeren 
Kosten. 


Joystick ohne Kabel 7 


CBS-Computerspielprogramme — 
Eine sinnvolle Ergänzung der 
Produktpalette 


Telexstar: 
Fernschreiben mit dem 
Personalcomputer 


Neu: ROW/Computer - Zubehör 
Bekannte Fotomarke expandiert 
in ”Mikro” 8 


GM-Lexikon 


Diesmal ist der Buchstabe 


”G” an der Reihe 9 
Mörderjagd (VC-20) 12 
Battelstar (VC-20) 17 
Top Secret (VC-20) 20 
Joystick Grafik (VC-20) 38 
Vier gewinnt (VC-20) 58 
Textverarbeitung (C-64) 29 
Magdomnat (C-64) 42 


Bomber (C-64) 48 
Asterix (C-64) 49 
Think (C-64) 53 
Tips & Tricks 

Zwei Datasetten am 6-64 23 


Renumber für den 6-64 
Dieses Basic-Lade Programm 
erzeugt nach dem Start 
durch RUN ein Maschinen- 
Spracheprogramm. 


CBM-64 Kontrolltaste 24 
Leserhriefe 25 


Bücher 

Heilborn/Talbott: Das C-64 
Anwenderhandbuch 

Das Anwenderhandbuch zum VC-20 
Schacht: Basic — Schritt für 

Schritt 26 


TV-Ecke 


In unserer TV-Ecke geben 

wir regelmäßig Hinweise auf 
Computersendungen im 

Fernsehen 27 


Softreviews 


Sprachsynthesizer (für den C-64) 
Bass-Compiler (für den C-64) 28 


Werkstatt 


Logik im Basicprogramm (Teil 5) 57 


Assembler Kurs (Teil 5) 60 


Berichte 


Mikrocomputerboom erreicht neuen 
Höhepunkt: 

Sprunghaftes Wachstum bei 
Commodore 10 


Kleinanzeigen 62 


Rätselseite 63 
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Ihr Weg zur Sonnenmaske führt u.a. 
durch undurchdringliche Dschungel, 
endlose Pfade und überall lauern Gefah- 
ren. Hervorragende Grafik und Akustik, 
dazu ein sehr schwer zu spielendes Ad- 
venture machen die "Aztekenmaske” zu 
einem wirklich tollen Abenteuer. Lange 
Herbsttage sind so auf jeden Fall kurz- 
weiliger zu gestalten. 


(sr) 


"I brought uou this nap of 
that night contain xhe fab 
the supplies are in the Jee 
t uaiting I 


Finden Sie die Sonnenmaske der 
Azteken. Eine schwierige Aufgabe, denn 
noch niemand ist von dieser Expedition 
zurückgekehrt. Mask of the Sun ist ein 


englischsprachiges Text-Abenteuer mit The trees part and an old ruin is 
faszinierender Grafik. »isible in = clearing. A pathuau lesds 
In wenigen Wochen wird eine deutsche forward to the foot of the steirs. 
Version der Firma Ariolasoft auf dem a z 


Markt erhältlich sein. 


-Unser Softwareversand bietet | 84 C-64) und den Computer 
Ihnen zu wirklich einmalig | an. 

günstigen Preisen jede Wo- 
che die neuesten Programme, 
auf Kassette an. 

Wenn Sie die hier aufge- 
führten Bedingungen beach- 
ten, können auch Sie von un- 
serem Angebot Gebrauch 
machen. 


Bestellungen Ausland: 

Nur Vorauskasse, Schein 
Keine Schecks oder Über- 
= weisungen! 


aus Compute mit 41/84 


Commodore 64 K14,- DM 
Think 

Asterix 

Bomber 
Magdomnat 
Textverarbeitung 


Bestellungen Inland: 

Gegen Einsendung eines 
Schecks oder Vorauszahlung 
auf unser Konto bei der 
Raiffeisenbank Eschwege eG, 
Bankleitzahl 522 603 85 
Kto.-Nr. 245 8888 

senden wir Ihnen die ge-. 
wünschten Programme 


— V6-20 
-- Battelstar 
8 Top Secret 


s® . 
Ne 
a 


schnellstmöglich zu. Geben ‘ Vier gewinnt 
Sie bitte unbedingt die ge- N ns „ Joystick-Grafik 
naue Bezeichnung der Kas- ee Mörderjagd 


sette (z.B. Compute mit 37/ 
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ak COMMODORE 64 BASIC v2 
64K RAM SYSTEM 38911 BASIC BYTES FREE 


Herzlich willkommen zum 4. 
Teil unseres BASIC-KUR- 
SES. 

Letzte Woche hatten wir un- 
seren ersten Programmablauf 
erstellt und auch gleich eine 
kniffelige Aufgabe zu lösen. 
Wenn man sich das Pro- 
gramm der letzten Woche ein- 
mal genauer angesehen hat, 
so war die Lösung der 
Übungsaufgabe theoretisch 
gar nicht so schwer. In der er- 
sten Zeile des Programms 
hatten wir eine Variable 
"TAGE" mit der Rechenbasis 
365 belegt. 

Diese Basis war natürlich et- 
was ungenau, da sie Schalt- 
jahre nicht berücksichtigte, 
aber das war auch nicht so 
wichtig, da nur die grundsätz- 
liche Funktion eines Algorith- 
mus und die Abarbeitung ei- 
nes Basic-Programms ver- 
ständlich gemacht werden 
sollte. 

Als ersten Schritt zur Lösung 
der Aufgabe müßten wir eine 
zweite Rechenbasis mit der 
Anzahl der Monate eines 
Jahres definieren. Wir schrei- 
ben also: 


15 Monate = 12 


Machen Sie sich keine Ge- 
danken darüber, daß die Zeile 
15 als letztes eingegeben 
wurde, der Computer ordnet 
sie an die richtige Stelle, was 


Befehl kontrollieren können. 

Danach müssen wir einen 
zweiten Rechenvorgang in 
das Programm einbauen. 
Außerdem muß eine zweite 
Variable, die nachher das Er- 
gebnis in Monaten beinhaltet 
erstellt werden. 

Logisch wäre wenn wir diese 
Variable "ERGEBNIS 2” nen- 
nen würden. Der Computer er- 
kennt jedoch nur die beiden 
ersten Buchstaben als Varia- 
blenname an. Wenn wir also 
zwei Variable mit dem Namen 
"ERGEBNIS" und ”ER- 
BRECHEN” definieren wür- 
den, so würde der Computer 
später im Programmablauf 
nur der Variable ”ER” zwei- 
mal einen Wert zuweisen und 
das Ergebnis könnte nicht 
stimmen. 

Demzufolge nennen wir die 
Variable also einfach nur ”E”, 
denn der Computer kann "E” 
und "ER” unterscheiden. 

Der Rechenvorgang lautet 
also: 


35 E=ALTER*Monate 
oder 
35 E=AL*MO 


das zweite Beispiel spart Zeit 
bei der Eingabe, ist aber 
später nicht mehr so schön 
übersichtlich. 

Als letztes müssen wir noch 
die Printanweisung vervoll- 
ständigen, wir ändern die 


Sie leicht mit dem LIST- | Zeile 40 von: 


40 PRINT’SIE SIND”;ERGEB- 
NIS/"TAGE ALT” 


in: 
40 PRINT’SIE SIND”;ERGEB- 
NIS’’TAGE UND ";E”MO- 
NATE ALT” 
oder wir 
Kurzform: 

40°’SIND SIND";ER;"TAGE 
UND ";E;’ MONATE ALT” 


schreiben in 


Wie Sie bemerken werden, ist 
es recht vorteilhaft Pro- 
gramme in der zweiten Schreib- 
weise einzugeben. Wir wer- 
den bei längeren Programmen 
in späteren Lektionen darauf 
zurückkommen. 

Kommen wir nun zu einem 
weiteren Befehl, den Sie in 
Ihre Programme imple- 
mentieren können und zwar: 


DIE FOR...NEXT SCHLEIFE 


Diese Schleife wiederholt ei- 
nen Teil Ihres Programms, so 
oft wie es im FOR-Befehl an- 
gegeben ist. Die Anweisung 
wird in der Form: 


10 FOR 'VARIABLE = 


USW. 
100 NEXT 'VARIABLE’ 


in Ihren Computer eingegeben. 
Der Wert von 'VARIABLE' 
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wird bei uns zum besseren 
Verständnis fast immer 'T' 
sein, Sie können natürlich 
auch jede andere Variable da- 
für verwenden. Sie sollten je-. 
doch darauf achten, daß diese 
Variable an keiner anderen 
Stelle des Programms abge- 
fragt wird. Der Wert ’X’ be- 
zeichnet wo der Zähler 
starten soll und der Wert "Y’ 
wo der Zähler enden soll. 
Während des Zählens wird 
die Variable immmer um ein 
STEP hochgesetzt. Im Nor- 
malfall ist der STEP immer 1. 
Man kann die Größe des 
Steps jedoch auch festlegen 
indem man an die FOR...NEXT 
Schleife die Anweisung STEP 
'Z anhängt. In 'Z’ muß die 
Schrittweite stehen. Dieser 
Wert kann auch negativ sein. 
Wir geben also ein: 


10 FORT = 1 T0 209 
20 PRINTT 
30 NEXTT 


und starten wie gewohnt mit 
RUN. 


‚Der Computer wird auf dem 


Bildschirm die Zahlen von 1 
bis 209 in schneller Folge von 
oben nach unten durchzäh- 
len. Dies geschieht allerdings 
so schnell das wir diesen auf- 
regenden Vorgang gar nicht 
in seiner vollen Pracht bewun- 
dern können und man fragt 
sich, wie man dies wohl ver- 
langsamen kann. Der soeben 
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gelernte Befehl kann auch 
diese Aufgabe übernehmen, 
indem wir ihn einfach eine 
Weile ohne Plan und Ziel zäh- 
len lassen. Wir schreiben: 


10 FORT =1 TO 209 
20 PRINTT 

25 FORT2 = 1 TO 300 
26 NEXT T2 

30 NEXTT 


Nach dem Starten mit RUN 
werden die Zahlen in kleinen 
zeitlichen Abständen auf dem 
Bildschirm erscheinen und 
zwar immer in dem Abstand 
indem der Computer von 1 bis 


Ein Herz für Schüler... 


Der Aktion "Computer und Bil- 
dung’ wurden jetzt in Frankfurt 
die ersten 360 Mikrocomputer 
des speziell für Schulen ent- 
wickelten Modells 4064 sowie 
des legendären C-64 plus Mo- 
nitor 1701 übergeben. Hinzu 
kommt die Palette der 
Westermann-Lernprogramme 
(Rechenlöwe/Rechtschreib- 


3. Oktober ’84 


300 zählt ohne in der 
Zwischenzeit etwas anderes 
zu tun. 

Wie Sie sehen, ist der FOR...- 
NEXT Befehl ziemlich nütz- 
lich, wenn man einen Vorgang 
oft wiederholen will. Wichtig 
istnoch, daß eine Schleife im- 
mer mit einem NEXT aufhören 
muß, da der Computer sonst 
eine Fehlermeldung aus- 
gibt. Außerdem sollte man 
darauf achten, daß FOR...- 
NEXT Schleifen nicht kreuz 
und quer ineinander ver- 
schachtelt sein sollen. Der 
Computer kann sich sonst 
sehr leicht in einer solchen 


löwe). 

Die Spende, die einschließlich 
der Peripheriegeräte, Software 
und Lehrmaterialien einen 
Wert von rund 1 Million Mark 
darstellt, nahm der Präsident 
der 'DABEI’”. Deutsche Ak- 
tionsgemeinschaft Bildung - 
Erfindung — Innovation e.V., 
Bonn, Prof. Dr. Gerd Kortz- 
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Schleife fangen und meldet 
sich nie wieder von selbst 
zurück. 

In unserer Aufgabe für das 
nächste Mal verwenden wir 
das Programm vom letzten 
Heft und machen es noch ein 
wenig komfortabler, indem wir 
eine FOR...NEXT Schleife ein- 
bauen. Um die Sache jedoch 
nicht ganz so einfach zu 
machen, lassen wir den Befehl 
NEXT T heraus und Sie kön- 
nen sich überlegen an welche 
Stelle des Programms er am be- 
sten passen würde. 


10 INPUT” VON WIEVIELEN 


fleisch, aus den Händen von 
Commodore-Vizepräsident 
und Europachef Harald Speyer 
(rechts) entgegen. Sie ist für 
90 Grundschulen im gesamten 
Bundesgebiet bestimmt. 

Die Aktion 'Computer und Bil- 
dung’ wurde unlängst durch 
die Bundesminister für Bildung 
und Wissenschaft sowie für 
Forschung und Technik ins Le- 


PERSONEN SOLL DAS 
ALTER ERRECHNET WER- 
DEN?"X 

20 FORT=1T0X 

30 INPUT"ALTER:";AL 

40 TA = 365 

50 MO = 12 

60 ER= AL*TA 
70E=AL*’MO 

80 PRINT "SIE SIND ";ER;” 
TAGE UND ";E}” MONATE 
ALT” 

90 AL=0 

100 ER=0 

110 E=0 

120 PRINT"AUF 
DERSEHEN !" 


WIE- 


ben gerufen. Ziel dieser Aktion 
ist es, Schulen und Bil- 
dungseinrichtungen durch 
konkrete Hilfen bei der Lehrer- 
bildung, der Ausstattung mit 
Geräten und Computerpro- 
grammen sowie bei der Be- 
wältigung der mit neuen Infor- 
mationstechnologien verbun- 
denen pädagogischen Aufga- 
ben zu unterstützen. 


NEU FÜR DEN 
COMMODORE 


Die preiswerte 
Einsteiger-Software. 


SM SOFTWARE AG / MÜNCHEN 


9 Neue Software für alle Zielgruppen: 


Die zur Hannover Messe 84 
angekündigten neuen Pro- 
blemlösungen für die Home- 
und Semiprofi-Szene sowie 
den kommerziellen Markt 
sind nunmehr in erheblichem 
Umfang verfügbar. Damit 
wird das Programm-Spek- 
trum von Gommodore den Er- 
wartungen einer Anwender- 
schaft gerecht, die eine im- 
mer vielfältigere und an- 
spruchsvollere Struktur auf- 
weist. 


Der Mikro-Marktführer legte 
bei diesen Neuentwicklungen 
besonderen Wert auf ein- 
faches Handling und hohen 
Bedienungskomfort. Das Un- 
ternehmen folgt damit dem 
breiten Käufertrend, Com- 
puter ohne Fachkenntnisse 
als persönliche wie berufliche 
Werkzeuge einzusetzen. Zu- 
gleich wird immer klarer, daß 
praxisnahe Software auch im 
Mikro-Markt zu einem Wett- 
bewerbsfaktor von vorrangi- 


Die Firma iti-Datentechnik 
schickt Interessenten ko- 
stenlos die Parametertabelle, 
um mit einer Olympia electro- 
nic compact 2 mit iti- 
Interface das Data-Becker- 
Textprogramm Textomat auf 
dem C-64 leistungsfähig zu 
implementieren. 

Gegen eine geringe Gebühr 
kann eine Diskette mit 
Druckertabelle, Formular und 
Beispielprogramm enthalten. 
Mit dieser Anpassung läßt 
sich im laufenden Text die 
Schreibdichte (10, 12 und 15 
Zeichen/Zoll, die Zeilen- 
dichte (1, 1.5 und 2-zxilig) 
ändern. Diese Ansteuerunyen 
sind bei den meisten anderen 
Geräten dieser Preisklasse 
nicht möglich. Daneben sind 
die Hochstellen und Tiefstel- 
len (Halbzeile positiv und ne- 
gativ) sowie die weiteren 


TELEX WW TELEX WU TELEX WW TELEX WW 


[> 2) 


ger Bedeutung aufrückt - 
also mindestens ebenso kau- 
fentscheidend ist, wie das 
Preis-/Leistungsverhältnis 
der Hardware. 


Im Mittelpunkt steht dabei 
die Tatsache: Die neuen 
Commodore-Rechner sind 
teilweise mit integrierten 
Software-Paketen erhältlich. 
Sie liegen aber dennoch nicht 
über den marktüblichen 
Hardware-Preisen. 


Zu dem Bemühen, mit eigenen 
und dezidierten Lösungen auf 
dem Markt präsent zu sein, 
sieht sich der Mikro-Her- 
steller trotz des Angebots 
zahlreicher freier Program- 
mierer und Software-Häuser 
deshalb veranlaßt: Geprüfte 
und getestete Software ent- 
spricht schlichtweg den ele- 
mentaren Erwartungen der 
Commodore-User. 


Im einzelnen sind folgende 


Olympia electronic Compact 2 
mit Iti-Intergace 


Zeichen des 100-Zeichenty- 
penrads erreichbar. Daß alle 
Umlaute gedruckt werden ist 
heute selbstverständlich. 

Die Maschine wird von iti- 
Datentechnik mit einge- 
bautem seriellen Commo- 
doreinterface ab Lager zu ei- 
nem Preis von DM 1.498,- 
inkl. MwSt. geliefert. 

Ein eventueller späterer Um- 
bau auf das Centronicsinter- 
face oder auf V.24 ist leicht 
möglich. Die Geräte werden 
auf Wunsch auch mit diesen 
Schnittstellen geliefert. 
Desweiteren ist über die ON- 
OFF-Linetaste die Um- 
schaltung auf normalen 
Schreibmaschinenbetrieb mit 
Korrekturspeicher möglich. 
Als Farbbänder stehen Ein- 
malkarbonbänder, Multi- 
stricke und Nylonbänder zur 
Verfügung. 


neuen Programme nunmehr 
verfügbar: 


Für Home- und Semiprofi- 
Rechner 


— Synthesizer, ein Programm 
zum Komponieren und Üben 

— Intelligente Computerspiele 

— Schreibmaschinen-Kursus 

— Basic-Lernkassette 

- Grafische Kunst 

- Logo — die neue Program- 
mier- und Lernsprache, 
die auch für Kinder durch 
ihre Symbolelemente geei- 
gnet ist 

— Datenmanager, ein Pro- 
gramm für die Datei-, 
Adress- und Mitgliederver- 
waltung etc. 

— Integrierte Software (Plus 4) 

— Btx-Modul, das den Com- 
modore 64  Btx-fähig 
macht 


Für kommerzielle bzw. 
professionelle Computer 


2.900.000 
Quickshot-Joysticks SVI-101 


Überaus werbewirksam wurde 
rechtzeitig zur HiFiVideo 84 
in Düsseldorf vom deutschen 
Importeur der Quickshot- 
Joysticks bekanntgegeben, 
daß seit Produktionsbeginn 
2.500.000 Stück des Typs 
SVI-101 auf dem Weltmarkt 
abgesetzt worden sind. 


Der deutsche Generalim- 
porteur, die Firma B. Jöllen- 
beck, nahm dieses Jubiläum 
zum Anlaß, auf dem Stand in 
Halle 9 das 2.500.000ste Ex- 
emplar sowie das inzwischen 
erhältliche Modell SVI-102, 
dessen besonderes Merkmal 
ein zuschaltbares automati- 
sches Dauerfeuer ist, vorzu- 
stellen. 


Das Interesse des Publikums 
war diesem Renner unter den 
Zubehörartikeln gewiß. 
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-Lohn 700 - dieses Pro- 
gramm ist auf die 8.000er- 
Serie übertragbar 

— Mitgliederverwaltung für 
CBM 80XX 

—- Emulator — ein Hilfspro- 
gramm für CBM 700, das 
die Nutzung der 8.000er- 
Programme ermöglicht 

- Superoffice — hierbei han- 
delt es sich um ein in- 
teraktives Programm-Pa- 
ket sowohl für die Dateiver- 
waltung als auch die 
Textverarbeitung der Sy- 
steme CBM 8296 und 
700 

— Platine für die Modellreihe 
700 zur Nutzung der 
8.000er-Software 


Insgesamt sind im Mikro- 
Markt annähernd 5.000 Pro- 
gramme für Commodore- 
Computer (größtenteils von 
freien Software-Häusern er- 
stellt) erhältlich. 
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CBS Computerspielprogramme 
Eine sinnvolle Ergänzung der Produktpalette 


Mit insgesamt 15 Com- 
puterspielprogrammen, kom- 
patibel für die Home Gom- 
puter COMMODORE 64 und 
COMMODORE VC-20 sowie 
für die Atari Hardware von 
400 his 1200, kommt CBS 
Electronics auf den Markt. 

Diese Computerspiel-Soft- 
ware ist für die ganze Familie 
entwickelt. Sieben Vorschul- 
programme regen die Ent- 
deckerfreude an und fördern 
das Lernen. Außerdem brin- 


Telexstar: 


gen sie Kindern den optimalen 
Einstieg in die Welt der 
Computer. 

Die Lernprogramme sind von 
Pädagogen erarbeitet wor- 
den, die Fachleute auf dem 
Gebiet der computerge- 
stützten Didaktik sind. Au- 
Berdem gibt es in der Serie ins- 
gesamt acht in den USA teil- 
weise preisgekrönte Strate- 
gie- und Taktikspiele, die 
auch ihren Reiz auf die Er- 
wachsenen ausüben. 


Mit dieser Computerspiel- 
Software dringt die CBS- 
Tochter ARXON in einen ge- 
waltig anwachsenden Markt 
ein. Wurden noch in der Periode 
Februar/Mai 1983 ingesamt 
ca. 20.000 Homecomputer 
verkauft, so waren es im Ver- 
gleichszeitraum 1984 ins- 
gesamt ca. 136.000 Geräte. 
Die CBS Electronics hat ein 
jahrzehntelanges Know how 
im Bereich der Un- 
terhaltungselektronik. Die 


neuen Computerspiele wer- 
den von den besten Spie- 
leentwicklern programmiert. 
Durch diese qualitativen 
Fakten und nicht zuletzt 
durch die Tatsache, daß das 
neue Software-Programm für 
Computer engagiert bewor- 
ben wird, rechnet sich 
ARXON einen guten Markt- 
anteil für diesen Geschäfts- 
bereich aus. 


Fernschreiben mit dem Personalcomputer 


Alle Vorteile der Textverar- 
beitung am Bildschirm lassen 
sich jetzt auch für den 
Fernschreibverkehr nutzen: 
Der ”Telexstar”, neues Gerät 
im Vertriebsprogramm von 
"Computer 2000”, ist ein 
kompaktes Zusatzgerät, das 
einfach zwischen einen vor- 
handenen Personalcomputer 
und den Fernschreiber ge- 
schaltet wird. Dadurch kann 
das Telexgerät vom ge- 
wohnten Bildschirm-Arbeits- 
platz aus sozusagen fernge- 
steuert werden — mit sämt- 
lichen Möglichkeiten, die 
auch der Computer "solo" 
bietet: Korrigieren, Speichern, 
Abrufen von Standard-Texten 
oder gespeicherten Infor- 
mationen jeder Art. Auf das 
lästige Lochstreifen-Stanzen 
kann ganz verzichtet werden. 
Der "Telexstar” macht es so- 


gar möglich, via "Kennwort” 
Nachrichten aus einer elek- 
tronischen "Mailbox" abzuru- 
fen. Eine erweiterte Version 
des Gerätes. "Telexstarplus”, 
erlaubt unter anderem die 
automatische Aussendung 
von Rundschreiben, wobei 


Empfänger und Sendezeit 
vorprogrammiert werden kön- 
nen. Telexstar ist für nahezu 
alle gängigen Personalcom- 
puter lieferbar. Die Art des 
Fernschreibers spielt keine 
Rolle. 

Selbstverständlich hat das 


Neu: ROWI Gomputer-Zubehör 
Bekannte Fotomarke expandiert in Mikro” 


Rowi International in Neuburg 
a. D., eines der führenden 
europäischen Markenunter- 
nehmen für Fotozubehör, 
steigt in die Wachstums- 
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branche der Heim- und Perso- ; 


nalcomputer ein. 


Auch hier setzt ROWI auf 
seine umfangreichen Zube- 


hör-Erfahrungen. Das Start- 
Sortiment umfaßt Datenträ- 


| ger wie Datenkassetten und 


Disketten, Pflege- und Reini- 
gungsmittel, 


Compube mib 


Zusatzgerät die Genehmi- 
gung des Fernmeldetechni- 
schen Zentralamts (FTZ- 
Nummer). Ein eingebautes 
Netzteil versorgt es mit 
Strom. (Informationen: Com- 
puter 2000 in München. 


lare, Ordner und Boxen für die 
Archivierung sowie diverse 
Computerzubehör-Produkte, 
insgesamt zunächst ca. 70 


Endlosformu- | Artikel. 
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9 Neue Dysan Kopfreinigungs-Diskette 


bietet mehr Reinigungszyklen bei geringeren Kosten pro Anwendung 


TELEX WW TELEX WW TELEX WW TELEXW 


© 


Mit dem einfach anzuwenden- 


“ den, wirtschaftlichen DYSAN 


Kopfreinigungs-Kit können 
Computeranwender nun Da- 
tenverlust, Systemausfall so- 
wie Disketten- und Kopf- 
Verschleiß als Folge von Ver- 
schmutzung vermeiden. 


Das Kit gibt es in einer 5 1/4- 
und einer 8-Zoll-Version für 
1- und 2-seitige Laufwerke. 
Es enthält 2 Reinigungs- 
Disketten und eine Dosierfla- 
sche mit genügend Reini- 
gungsfluid für 40 Reinigungs- 
vorgänge. — Das bedeutet 
50% mehr Reinigungszyklen 
gegenüber dem herkömm- 
lichen Verfahren. Dazu sind 
die Kosten pro Reinigung gün- 
stiger. 

Als Besonderheit haben die 
Reinigungs-Disketten einen 
dünnen Film-Aufkleber über 
der Schreib-/Lese-Offnung. 
Mit ihm wird bei einseitigen 
Laufwerken eine gleichmä- 
Bige Druckverteilung und da- 
mit ein besserer Kontakt zwi- 
schen Diskette und Kopf beim 
Reinigen erreicht. Die sorg- 


fältig abgemessene Abgabe | 


Joystick ohne Kabel 


der Reinigungslösung ver- 
meidet Über- und Unterdosie- 
rung. Das Kit ist in einer ko- 
stenlosen, wiederverwendba- 
ren Disketten-Archivbox ver- 
packt. 

Entwickelt und hergestellt 
von Garlic Technology, einem 
zu DYSAN gehörenden Her- 
steller von Köpfen für Flexible 
Disk Drives, hat das DYSAN 


Kopfreinigungs-Kit 
strenge Qualitätssicherungs- 
Verfahren durchlaufen müs- 
sen, wie die anderen DYSAN 
Produkte; es wird eine 90- 
Tage Garantie gegeben. 

Das Kit wurde dem DYSAN 
Händlernetz im August vor- 
gestellt. Die Verfügbarkeit 
beim Händler ist seit 
Oktober gegeben. 


ähnlich 


Die DYSAN Corporation ist ei- 
ner der führenden Hersteller 
rotierender magnetischer 
Computer-Medien sowie zu- 
gehöriger Produkte und 
Dienstleistungen. 

Weitere Informationen durch 
Dysan GmbH, Eschborn 


- Der Remote Action Transmit- 


ter, der erste kabellose Joy- 
stick, wurde von dem engli- 
schen Hersteller Cheetah 
präsentiert. Der RAT arbeitet 
auf der Basis von Infrarot- 
strahlen, und kann bis zu ei- 
ner Entfernung von ca. 10m 
zum Computer eingesetzt 
werden. Die Infrarotstrahlen 
werden zu einem Controller 
gesendet, der im Expansions- 
port des Computers steckt. 
Für den ZX-Spectrum von 
Sinclair ist der RAT bereits im 
Handel, für den Commodore 
wird er Ende des Jahres ver- 
fügbar sein. 

(sr) 
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Centronics-Schnittstelle: 
Parallel-Schnittstelle zur Übertragung 
von Computer-Daten in den Drucker. Die 
vom Computer zum Drucker übermit- 
telten Daten werden bitparallel auf 8 
parallelen Leitungen übertragen. Da im 
ASCII-Code ein Zeichen aus 8 bits besteht, 
wird auch immer gleichzeitig ein ganzes 
Zeichen zum Drucker gegeben. Dadurch 
ist diese Art der Datenübertragung 
wesentlich schneller als bei der seriellen 
Schnittstelle, wo immer 8 bits hinterein- 
ander gesendet werden. 


Cobol: 
höhere Programmiersprache, wird meist 
für kaufmännische Aufgaben einge- 
setzt. 


Compiler: 

Als Compiler bezeichnet man ein Pro- 
gramm, das Programmschritte der höhe- 
ren Programmiersprachen in Maschinen- 
Sprache übersetzt, so daß der Mikropro- 
zessor die Befehle auch versteht. 

Der Compiler übersetzt dabei in prozes- 
soreigene Befehle, da jeder Mikroprozes- 
sor nur seine eigene Maschinensprache 
versteht. 


GAL: 
computerunterstütztes Lernen. Gewinnt 
immer mehr an Bedeutung, gerade in 
Schulen wird das CAL -gezielt geför- 
dert. 
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CP/M 
eines der weit verbreitesten Betriebssy- 
steme bei Personal Computern. 

CP/M wurde 1976 von Digital Research 
entwickelt und kann heute auf eine fast 
unübersehbare Softwarepalette zugrei- 
fen, CP/M bedeutet "Control Programm 
für Mikrocomputer” und wurde für 8 bit 
Rechner erstellt. 


CPU: 

Zentraleinheit eines Computer-Systems. 
Die CPU ist das Steuerwerk, sie holt Be- 
fehle, decodiert und führt sie aus. Ein Lei- 
stungsmerkmal ist die Anzahl der Bits, 
die eine CPU auf einmal verarbeiten 
kann. Diese Maßeinheit nennt man Wort- 
breite. Es gibt Mikroprozessoren mit 8 
Bit, 16 Bit und auch 32 Bit Wortbreite. 


COMAL: 

höhere Programmiersprache, die Grund- 
elemente von Basic und Pascal auf- 
weist. Mit COMAL kann strukturiert pro- 
grammiert werden, d.h. ein Problem wird 
in Unterprobleme aufgeteilt und nachein- 
ander abgearbeitet. 


CURSOR: 

Ein blinkender Zeiger auf dem Bild- 
schirm. Er gibt an, an welcher Stelle des 
Bildschirms Eingaben gemacht werden 
können, Der Cursor ist freibeweglich, d.h. 
er kann positioniert werden. Im Regel- 
fall sind auf Computertastaturen extra 
Cursortasten. 


Character Generator: 

elektronischer Schaltkreis, der normaler- 
weise im ROM untergebracht ist. Er hat 
die Aufgabe, binäre Computerdaten so 
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umzuwandeln, daß die entsprechenden 
Zeichen und Buchstaben entstehen. Ein 
Zeichen ist dabei aus vielen Einzel- 
punkten entstanden, für diese Darstel- 


lung ist der Character Generator 
verantwortlich. 

(sr) 
Compilersprachen: 


im Prinzip alle höheren Programmier- 
sprachen. Diese Programme sind an der 
menschlichen Sprache orientiert, der 
Computer versteht sie nicht. Jedes Pro- 
gramm muß vom Interpreter oder Compi- 
ler in den jeweiligen Maschinencode über- 
setzt werden. Dabei ist ein vom Compi- 
ler übersetztes Programm bis zu 50-mal 


schneller als ein vom Interpreter 
übersetztes. 
Compilersprachen sind u.a. Basic, 


Fortran, Pascal. 


Gontrol-Bus: 

Auf den Leitungen des Control-Bus wer- 
den Steuerzeichen übermittelt. Sie ha- 
ben die Aufgabe, die Bauelemente So zu 
schalten, daß störungsfreier Datenver- 
kehr erfolgen kann. 


GPI: 

Characters per Inch. Maßeinheit bei 
Druckern für die Zeichendichte und damit 
im allgemeinen Größe der Schrift. 


GPS: 

Zeichen pro Sekunde. Wichtig u.a. für die 
Leistungsfähigkeit eines Druckers, gibt 
an, wieviel Zeichen pro Sekunde ge- 
druckt werden. 

Beispiel: 

Matrixdrucker 100-160 cps 
Typenraddrucker 50-100 cps 


C= Commodore 


ANZAHL DER MITARBEITER 
WELTWEIT (PER 30.6.) 


Microcomputerboom erreicht 
neuen Höhepunkt: 
Sprunghaftes Wachstum bei Commodore 


Frankfurt, den 6. September. - "Unser gegenwärtiger Erfolg mag manchen 
Mitbewerbern wie ein pures Wunder erscheinen. Doch Tatsache ist, daß er 
aus einer konsequenten, ja radikal anwendernahen Unternehmens-, Produkt- 
und Absatzpolitik resultiert.” 


FRE, 


Mit diesen Worten kom- 
mentierte Harald Speyer, 
Vice President von Commo- 
dore International, vor Jour- 
nalisten den anhaltenden 
Höhenflug des in rund 60 
Ländern aktiven Mikrocom- 
puter-Konzerns. Die Resultate 
des vergangenen Geschäfts- 
jahres (01.07.83 -30.06.84) 
übertrafen die ohnehin küh- 
nen Erwartungen des Unter- 
nehmens erheblich: Weltweit 
erzielte Commodore ein Um- 


und der 


bei 2,30 (1,48) 
-Nettogewinn bei 0.26 (0,20) 
Mio. US-Dollar. Die Zahl der 


Mitarbeiter kletterte (per 
30.6.84) um 20 Prozent auf 
5.500 (4.600). 


Speyer geht davon aus, daß 
der Höhepunkt des Mikro- 
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UMSÄTZE WELTWEIT 
SEIT 1982 IN MIO 
US-DOLLAR 


GJ84/6J83 


+86% 


Satzplus von 86 Prozent und 
damit 1,267 (0,681) Mrd. US- 
Dollar. Zugleich schnellten 
die Gewinne (vor Steuern) um 
99 Prozent auf 224,5 (112,9) 
bzw. (nach Steuern) um 57 
Prozent auf 143,8 (91,7) Mio. 
US-Dollar hoch. Die Um- 
satzrendite lag (brutto) bei 18 
(17) bzw. (netto) bei 11 (13) 
Prozent. Pro Aktie stiegen die 
Gewinne um 63 Prozent auf 
4,66 (2,86) US-Dollar. Der 
Pro-Kopf-Umsatz rangierte 


Booms "erst ineinigen Jahren 
erreicht sein wird und Com- 
modore bis dahin weiterhin 
überdurchschnittliche Ex- 
pansionsraten erzielt.” Dabei 
würden — führte der Vice 
President weiter aus — einige 
wesentliche Faktoren für den 
künftigen Erfolg von. aus- 


schlaggebender Bedeutung 
sein. So vor allem: Investition 
sämtlicher Gewinne aus- 

schließlich in die eigene Ge- 
sellschaft, möglichst hohe 
Selbstversorgung mit Bautei- 
len, partnerschaftliche Ko- 
operation mit den Distributo- 
ren wie auch Consumer- 
Marketing in allen Absatz- 
feldern. 


Neben der stark populari- 
sierten Werbung sei dabei 
auch die Direktansprache der 
Interessenten wichtig, wie sie 
auf der am 06. September er- 
öffneten "Vierten Internatio- 
nalen Commodore-Fachaus- 
stellung” (CFA) erfolgte. Hier- 
bei handelt es sich um die 
erste und bislang einzige 
Messe eine DV-Anbieters in 


UMSATZ UND GEWINN PRO 
MITARBEITER WELTWEIT GJ 84 


IN US-DOLLAR 


Umsatz p.Mitarbeiter 
2,30 Mio 


Deutschland. Sie bietete dies- 
mal über 20.000 erwarteten 
Besuchern eine umfassende 
Präsentation der Hard- und 
Software sowie Service- 
Leistungen aus der gesamten 
Commodore-Welt. Rund 100 


Compute mib 


Nettogewinn p. Mitarbeiter 


Aussteller waren auf etwa 
4.000 Quadratmetern in der 
Halle 1 des Frankurter Mes- 
segeländes vertreten. 


Im Bereich der Produktpolitik 
will sich Commodore nach 
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Speyers Worten auf zukunfts- 
trächtige Neuentwicklungen 
konzentrieren. Dabei gelte es, 
möglichst hohe Stückzahlen 
pro Modell zu erreichen, um 
via Kostendegression noch 
günstigere Preise realisieren 
zu können. Ein kontinuier- 
licher Ausbau der eigenen 
Fertigungskapazitäten sei im 
Gang, was eine Entschärfung 
der gegenwärtigen Liefereng- 
pässe erwarten lasse. 

Speyer: "Unter Wettbe- 
werbsaspekten kommt es dar- 
auf an, immer komfortablere 
und bedienungsfreundlichere 
Geräte anzubieten — so bei- 
spielsweise mit integrierter 
Software.” Um erhöhte Kauf- 
anreize zu Schaffen, werde 
Commodore in allen Ländern 
die Palette an Lernmedien, 
Begleit- und Arbeitsmaterial 
in nächster Zeit drastisch er- 
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1981 1982 1983 1984 
Weitere Mikro-Wachstumsbranchen: 


1985 


"Quelle: IDC 


konnten immerhin um 66 Pro- 
zent auf 356,8 (214,4) Mio. 
Mark gesteigert werden. Wie 
der für den deutschen Ver- 
trieb zuständige Geschäfts- 
führer Alwin Stumpf be- 
richtete, entwickelten sich die 
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Software-Boom in 
Westeuropa in Mrd US-Dollar 


weitern. Schließlich progno- 
stiziertte der Commodore- 
Chef einen gewaltigen Boom 
für Mikrosoftware, aber auch 
für andere neue Zweige im 
Umfeld der Kleinrechner (Zu- 
Satzgeräte, Zubehör, Aus- 
und Fortbildung etc.). 


Einen imposanten Wachs- 
tumssprung realisierte im 
abgelaufenen Geschäftsjahr 
(ebenfalls 01.07.83 - 

30.06.84) die deutsche Com- 
modore Büromaschinen GmbH. 
Der Gesamtumsatz stieg um 
136 Prozent auf 742,9 
(314,4) Mio. Mark. Am stärk- 
sten expandierte dabei die 
Zentrale Frankfurt (incl. fünf 
Vertriebsbüros): Die Inlands- 
Erlöse schossen gar um 267 
Prozent auf 366,7 (100,0) 
Mio. Mark hoch. Die Exporte 
des Werkes Braunschweig 


EXPANSIVES UMFELD 
DER MIKROCOMPUTER 


Standardpakate in 
kumulierten Werten 


$17,3 


1986 1987 1988 1989 


Peripherie 
Zubehör 
Fachzeitschriften/Bücher 


oschulen und Lernprogramme 


Beschaffungs-/Einführungsberatung 


— nicht veröffentlichten — Ge- 
winne ebenfalls "in der er- 
warteten positiven Weise”. 

Der Pro-Kopf-Umsatz lag ins- 
gesamt bei 2,19 (1,03) Mio. 
Mark; bei der Zentrale Frank- 
furt sogar bei 2,61 (0,86) und 


beim Werk Braunschweig bei 
1,79 (1,14) Mio. Mark. Diese 
ungewöhnlich günstige Re- 
lation erklärt Stumpf damit, 
"daß bei Commodore die eige- 
nen Computer, wie die Infor- 
mationstechnologie über- 
haupt, optimal zum Einsatz 
gelangen und damit zu einer 
äußerst günstigen Arbeitsef- 
fizienz führen.” Die Zahl der 
Mitarbeiter stieg innerhalb 
der letzten zwölf Monate um 
12 Prozent auf 339 (304) - 
davon arbeiten 140 in der 
Zentrale Frankfurt (incl. Ver- 
triebsbüros) und 199 im Werk 
Braunschweig (Stand: 
30.06.84). 


Wie Stumpf weiter darlegte, 
sind nunmehr die zur Hanno- 
ver Messe angekündigten 
neuen Home- bzw. Semiprofi- 
Computer (Commodore 116 
und 16 sowie Plus 4) wie auch 
der kommerzielle Rechner 
CBM 8296 D lieferbar. Zu- 
gleich wurde das Produktions- 
programm des Werks Braun- 
schweig aufgestockt: Dort 
werden nun auch die neue 
Modellreihe 8296 D sowie 
Floppy-Laufwerke (1541) 
hergestellt. Die Aufnahme der 
Fertigung weiterer Hardware 
wird gegenwärtig vorbereitet 
(bisherige Palette: Commo- 
dore 64, CBM 8296 und län- 
derspezifische Modelle). Zu- 
gleich sei das verfügbare 
Software-Spektrum im Home- 
wie im Kommerz-Bereich 
kräftig erweitert worden, be- 
tonte Stumpf. 


Als vorherrschende und ge- 
nerelle Tendenzen im Mikro- 
Markt der Bundesrepublik 
konstatierte der Geschäfts- 
führer: 


- Immer mehr Nachfrage 
konzentriert sich auf immer 
weniger Anbieter. 

— Der Aus- und Fortbildungs- 
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markt sowie der Semiprofi- 
Bereich wachsen gegen- 
wärtig am schnellsten. 

- Der Ausleseprozess unter 
den Distributoren eskaliert 
stärker als unter den Mikro- 
Anbietern. 

-Zunehmende  Einstiegs- 
und Existenzprobleme für 
kleine Neuanbieter. 

— Trend zu anwendungs- oder 
berufstypischen Com- 
putern (integrierte Spezial- 
Software). 

- Programm-Produzenten 
werden mehr und mehr zu 
Zulieferern der Hardware- 
Hersteller oder zu OEM- 
Partnern. 

-Die Arbeitsteilung zwi- 
schen Personal- und Groß- 
computern setzt sich durch 
und erfordert neuartige DV- 
Konzepte. 

— Programmbanken für Spe- 
zial-Software (ähnlich wie 
Videotheken) sind im Kom- 
men begriffen. 


Wie Stumpf abschließend be- 
kanntgab, verfügte Commo- 
dore (auf der Basis von IDC- 
und Diebold-Erhebungen per 
1.1.84) zu Beginn des laufen- 
den Kalenderjahres über ei- 
nen Gesamtanteil von etwa 
50 Prozent im Home-, Hobby- 
und Semiprofi-Markt und von 
mindestens 25 Prozent im 
kommerziell-professionellen 
Bereich (in installierten 
Werten). 


Der Mikro-Markt in Deutsch- 
land — so die neueste Pro- 


. gnose von Diebold — "wird in 
“ den kommenden Jahren bei 


kontinuierlich verbesserter 
Leistung der Geräte und 
weiter sinkenden Preisen un- 
gestüm wachsen”: Während 
zum Jahresbeginn 1984 hier- 
zulande etwa 1,02 Mio. Rech- 
ner installiert waren, sollen es 
- so die Beratungsgesell- 
schaft- Anfang 1986 bereits 
2,55 und im Januar 1988 
schon 4,08 Mio. Stück sein. 
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für den VG-20 mit mindestens 8K 


Graf Hinrich von Fallobst ist ermordet 
worden. Der Mörder befindet sich noch 
im Haus. Der Spieler, der sich als Meister- 
detektiv behaupten soll, beginnt mit sei- 
nen Ermittlungen und nennt seine 
Verdachtsmomente. 

Zuerst wird nach dem möglichen Tatort 
gefragt, anschließend nach dem Verdäch- 
tigen, dann nach dem Tatwerkzeug. Der 
Computer zeigt an, wieviel Angaben 
richtig waren. Bei jedem Spielzug rückt 
der Mörder näher an den Detektiv 
heran. Nach 10 erfolglosen Ermitt- 
lungsschritten ist das Spiel für den Mei- 
sterdetektiven aus und das Geheimnis 
wird gelüftet. 

In jeder Phase des Spiels kann die Ali- 
bitaste 'H’ eingegeben werden. Es er- 
scheint daraufhin ein Alibi eines der ver- 
dächtigen Personen. Allerdings hat der 


i POKE36379,25:G0SUESAQAO 


Mörder dann Zeit, noch näher zu 


kommen... 


Variablenliste: 

c$ (1-5), A$ (1-5), B$ (1-5): Beinhalten 
die Namen der 5 Verdächtigen, Tatorte 
und Tatwerkzeuge. 

1,K,B,V,W,X,Y,Z: Werden benötigt, um die 
Verdächtigen, die Tatorte und die Tat- 
werkzeuge zu mischen. 

Tw$ (1-5), M$ (1-5), TA$ (1-5): Bein- 
halten nach dem Mischen die Namen 
der 5 Verdächtigen usw. 

TI$: Zeitmessung 

AB$: Übernimmt die Zeit für das letzte 
Bild 

Z: Zählt die Ermittlungsschritte 


‘ P: Zeigt an, wieviele Eingaben richtig 


waren 


PRINT"Q" SCLR:POKE36373,1128:PRINT"KiedaksE IN VERBRECHEN WIRD 


A CELLI="KUECHE "ICELE)="WOHNZ IMMER" :C$(3)="TERASSE" 


3 
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1 
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91 IFI=2ANDK=B(1)THEN?O®O 

92 IFI=3ANDK=B(2)0ORK=B<L)ITHEN?® 

93 IFI=4ANDK=B(CL)ORK=B(2IORK=B{LITHEN?® 

94 IFI=SANDK=B(1)IORK=B(2ZIORK=B(3)IORK=B (4) THEN?O 
188 GOTOS® 

158 K =INTCRND(X)xS)+L:RETURN 

288 V=B(1):W=B(2):X=B(3):Y=B(4):2=B(5) RETURN 
285 GOSUB40:PRINT"ZIEDER MOERDER.. EM" 

218 

215 50SUB498:PRINT" EM... HAT... Em" 

228 

225 GO5UB48:PRINT'" SIE. 

230 

248 FORL=1TO1BBOU:NEXTL 


Compuhe mib 


Programmaufhau: 

240: Zuordnung der Variablen, Mischen 
der Verdächtigen, der Tatorte und der 
Tatwerkzeuge 

300-400: Einstiegsgrafik 

500-608: Die Verdächtigen, die Tatorte 
und die Tatwerkzeuge werden genannt 
700: Zeit wird auf "000000" gestellt 
1000-1400: Abfrage der Verdachtsmo- 
mente und Überprüfung der Eingaben 
1500-1700: Ausgabe des Ermittlungs- 
Standes 

2000-2880: Täter überführt 
3000-3380: Mörder hat den Detektiv 
erreicht 

4009-4240: Bekanntgabe eines Alibis 
5000-5240: Spielerklärung 
10000-16700: Grafikteil 


MECLISAELV I IMECH I EASLU) IMECZHISASLN) IMECHY=SASCY) MEISISASCZ) 


TUIELLISBECUITTUECDI=BEWI: TUECHI BEIN) TWECAYSBECYI:TWSCHI=BECZ) 
.ZUGESCHLAGEN! IE" 
TASLIISCHLYI: TAHECDISCHLWI: TASCHISCHH I): TAFCIISCHYI:TASCHI=CHC2) 
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3. Oktober "84 


REMx+BILDO 1x%* 

POKE36E793,5 :PRINT"I" 
FRINT" II" SPC): "I m";SPC(6:7 "4 m" 
PRINTSPC (3): '29 m GO M";SPC<(6) 
PRINTZPC<SI: "ZI W"':SPC(6); 
FRINTSFPCISI "I M":SPC.5)> 

PRINTSPC SI" II m"; S5PC<5S)7'’24 WW 
PRINTSPCTIS "a MR" :5PC(3)} 
PRINTSPCZIE I WM" SSPCIS): " y Er % 
FRINTSFCITIG TI MT ;SPICSV: "a 34®" 
PRINTZPFC 12'234 33339 2" R 
PRINTSPC(3)7 "I W":SPCCB): "34 3134344 
PFINTSPCISSZ I W'SSFCCTI A 3 413 
PRINTSPC (18) "2 au" 
PRINTSPC< 18): "24 up wp" 
PRINTSPC (8); "In 3 ww ww" 
PRINTEFCKTI I u m _ 
PRINT"MI">SPCC2); "SER ERMORDETE m 
PRINTSPC (2); "SBRAF HINRICH VON" 
PRINTSPC (2), "SJFALLOBST ?77? m” 
FORL=1T03888:NEXTL 
FRINT" I" :POKE36879,25 
PRINT"SBWER WAR ES?" 
FORI=:iTOS:PRINT"!Q"7 :PRINTAS$SCIIS:PRINT"B?": NEXTI 
FORL=1T0O588:NEXTL 
PRINT" ZMEJOMIT GESCHAH ES?4" 
FORI=1TOS:PRINT"3"7:PRINTB$SCI)> :PRINT"W?":NEXTI 
FORL= 1 TGS3S8 :NEKXTL 
PFRIMT'BBMIELCHER TATORT?" 
FORI=ITOS:PRINT"Y" 3 :PRINTC$CIIF:PRINT"B?*":NEXTI 
FRINT'"ERRRRRRBRPPRRBEL> >>" 
POKE133,9:WAIT1S8 ,1 
TI$S="0080008" 

IFZ >18 THENGOTO3289 

GOSUB158898:P=9:2=2Z+1 

PRINT" Slalsinpnteistpsppnieingeng " © INPUTWS 

IFWES=SCEX LI THENGOSUB11B8U:GOTO 12088 

IFWE=SCFCZE) THENGUOSUBLB8199:GOTO 1289 

IFUS=C#(3) THENGOSUB12898:G0TO 1208 

IFWE=C$&“4) THENGSOSLB1398898:GO TO 1208 

IFWE=C:E(5) THENGOSUB14889:G60T0O1288 
IFLUS="H"THEN4B898 

PRINT"@DIRT GEH ICH NICHT HIN" 

FORL=1 TOSBB9 :NEXTL:GOTOL1OBO 
IFWE=TASCIITHENP=P+1 


PRINT" SIELRrDePREERIEI" 3 SPCCS) 5 "MVERDACHT GEGEN": INPUT” "VS 


IFYE=SAS(L) THENGOSUB16839:G0TO 1399 
IFVE=-ASIZITHENGOSUB16598:GOTO 1309 
IFVEeNFL3) THENGOSUB16598:GOTO 1398 
IFYESASKA) THENGOSUB16E98898:GOTO130808 
IFVESNECSITHENGOSUE16E989:GOTU1388 
IF\'£="H"THENAOOO 
FRINTSPC(S5)7 "BNICHT BEKANNT" 
FORL=1TOSOQ:NEXTL 
PRINT"D"7SPC(5)>” 
IFYS=M$(C1)THENP=P+1 

PRINT " IsIelspgsteispepeinpegegepgngeg" 3 SPCXS5? "MTATWAFFE":S IFG=BOTHENGOTO1324 
INPUT WIE" X$:GOT0O1339 

INFUT' m Bam"; x<E$ 
IFKE=SBECHJYORKESBECDIORKESBSCHIORKS-BECA)ORKS=BSCS)THENL4BBO 
IF#$5="H"THENA4888 

PRINTSPC <5)7 "BNICHT BEKANNT" 

FORL=1TOSB8B8:NEXTL 

PRINT"D"7SPC<(5);5" . 

GOTO1328 

IFK$S=TW$SCL) THENP=P+1 

IFP>ZTHEN2888 

IFP>ZTHEN2888 

GOSUB 18888: IFP=BTHEN15S® 

PRINT"EEII"SPC(3)5 "BNICHT SCHLECHT." 

PRINTSPC (3); "ES WAREN" 

PRINTSPC<3);P3" ANGABEN” 

PRINTSPC (3): "RICHTIG":GOTO1788 

FRINT"SAM"SPC(3)7 "KEIN VERDACHT" 
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PRINTSPC (397 "HAT SICH" 

FRINTSFCX3I7"BESTAETIGT!" 

PRINT '"EIRBBBRIEY";SPCC11-2),"-—" 

FORL=1T020898: NEXTL:GOTO 19888 

IFZ >65 THEN2509 

PRINT"Q":POKE36379,196:PRINT"" 

AB$=TI$ 

PRINT"BPU BIST EIN SEHR GUTERKRIMINALIST.DEIN SPUER" 
PRINT"OSINN ZEICHNET DICH AUS" 

PRINT"IN "7325" VERSUCHEN” 

PRINT"HRST DU DEN TAETER UVEBERFUEHRT.DEINE ZEIT" 
PRINT"OFUER DIESE HERVORRAGENDE LEISTUNG: " 

FRINT" A" HE 

FRINT"SGRÄTUL IERE ,‚GRATULIERE" 

GOTI2888 

FRINTSPC (3); "GUT" 

PRINT"U":POKE36873,25:PRINT"g" 

AES=TIS$ 

FRINT"BSRATULIERE.DER MOERDERIST HINTER SCHLOSS" 
PRINT"UND RIEGEL.ER WIRD SEINER GERECHTEN STRAFE" 
PRINT"NICHT ENTGEHEN!" 

FRINT"CIEINE ZEIT VOM ZEIT-":FRINT"PUNKT DES MORDES BIS" 
PRINT"ZUR HMAUFKLAERUNG: ® 

FRINT"A"AES 

PRINT"AMERDAECHTIGUNGEN: "7 

FRINT"SSOLL EINE NEUE MORD-" 

PRINT"SACHE AUFGEKLAERT WERDEN <(J/MI?" 
GETYE 

IFY£="J" THENRUN 

IFY£="N" THENGOTG2868 

GoT02328 

FRINT"W" 

FRINT'"BEIAISO LONG COLUMBO I!" 

END 

FRINT"":POKES36379,25 

FRINT"MSDIE UHR IST ABGELAUFEN" 

FRINT"SBER MOERDER STEHT HIN-TER DIR UND BERUEHRT" 
PRINT"DEINE SCHULTER." 

ABS=TI$ 

PRINT"gODU SIEHST..... et 
FORL=1TO1BBOBO:NEHTL 

FRINTME<1) 

FRINT"BARER MOERDER ZEIGT UIR DEN TATORT. sveuecceun." 
FÜRL=1TO29989:NEXTL 

PRINT"we"TA$C1) 

FRINT"I...UND ALS LETZTES IN DEINEM LEBEN SIEHST DUDIE 
FORL=1T02888:NEXTL 

PRINT"32" 7 TWEC1) 3" " 

PRINT"BBMDEINE ZEIT: "AB 

FRIMT"BNEUES SPIEL (J/NI?" 

BETYS$ 

IFY$="N" THENGOATO33A8 

IFYS="J"THENRUN 

GOoTn2252 

PRINT"U" 

PRINT" WEIIIETLIIAADIOS LITTLE DETEKTIV!" 

END 

PRINT"Q":POKE36379,25:2=2+2 

GOSUB 159 

J=K 

IFJ=ITHENGOTO4 iQ8 

PRINT" L IB I FUER:" 

PRINT"EE" MSCI) 

PRINT"EDIESE PERSON HIELT" 

PRINT"LICH ZUM ZEITPUNKT DESMORDES AUF: " 
PRINT’Ag"TAECI) 

PRINT"BES BEFAND SICH BEI" 

PRINT"DIESER PERSON: " 

PRINT"ZA" TWEIII 

PRINT"IERDAS ALIBI IST PERFEKT" 

FORL=1 TOSBBA:NENXTL 

GOTO1AOY 

PRINT"I" 

PRINT "SEBSP IELERKLAERUNG J/N?" 


Compube mi 
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18118 
18128 
198133 
181498 
18158 
18168 
198170 
18120 
18159 
10202 
10308 
1108 
11108 
11118 
11120 
11158 
11148 
111590 
11168 
11178 
111°8 
11138 
11288 
113208 
1200908 
12190 

zıia 
12120 
12138 
12148 

2159 
12158 
12178 
12180 
1271938 
12290 
12250 
12200 
12009 
153100 
“2118 
13128 
15138 
13148 
131598 


FORL=1T020 

PRINT"SSPIELERKLAERUNG J/N?" 
FORK=1TO58 

NEXTK ,L 

GETYS 

IFYS="N" THENRETURN 

IFY$="J"THENS 100 

GOTOSAOR 

PRINT"I" 

PRINT" MOERDERJAGD EIN SPIEL VON m" 
PRINT"OMEMARTIN BORMANN (C) 1384" 
FRINT"M5 VERDAECHTIGE 5 RAEUME" 
PRINT"5 MOEGLICHE TATWAFFEN" 


I PRINT ————— 0 


PRINT"ORGESUCHT WIRD DER MOER-DER DES GRAFEN! EL" 
PRINT"VERSUCHE DEN TRETER zU SCHNAPPEN,BEVOR ER" 
PRINT"DICH ERWISCHT!" 

PRINT"BURCH DRUECKEN DER 'H'TASTE BEKOMMST DU EIN” 
PRINT"ALIBI YON EINEM VER- DAECHTIGEN.GEH ABER" 
PRINT"SPARSAM DAMIT UM*" 

PRINT"®BITTE TASTE DRUECKEN" 

POKE133,0:WAITI138,1 

RETURN 

PRINT"I" 

PRINT ER | en ren u 

FORI=1TO18:PRINT"W I">SPC<189;"]| ":NEXTI 

RRENT®, Te en 

RETURN 

POKE36879,93 

GOSUE 18099 

PRINT"A">SPCtIOd; "u" 

PRINTSPC (3); "un" 

PRINTSPCISI "I wu" 

PRINT"M";5SPC(93); "ee" 


PRINTSPC(C3B)I' u 8 1 0088 za m" 
PRINTSPC (3); "u a AN Fin + 
PRINTSPC (3); "9 war 50 Da" 
PRINTSFC£32: "I = gl ı 28 u" 
PRINT" ZERBBEBI" 7C#(2) 

FETURN 


FÜKE36379,238 

GO3UB 18298 

PRINT" SSPCCIL DE "ET pr" 
PRINTSPC<3): "44 m" 

PRINTSPC<3): "24 m " 

PRINTSPC<3): "44 m" 
FRINTSFC<3): "44 me gl 
PRINTSPCCBI "A ml m" 
PRINTSPCSBY A Be u LE" 
PRINTSPC<3Y: "44 mmıli 1 -" 
FRINTSFCKSI I mm a Via Bat" 


PRINT" EERERBPPIWIS" CH) 

RETURH 

FOKXE38379,126 

GOEUB1AAHO 

PRINTER’ SSPCLIOUS [EL T 
PRINTEPCCTII"EF aa [+22 
PRINTSPCCESI: "I u ee 
PRINTSPC (EIS a N Ka" 
PRINTSFC 2): "pe ui It-2 
PRINTSFC (2: "pe mi" 
PRINTSPC (2) 5 "pletet m m" 
PRINTSPC (2): "pa MM DIL _* 


PRIMTSPC{ZBIF "at Dr wu v 
PRINTSPC 2): "ie" 
PRINTER" Cha) 
RETURN 

FORE36E79,25 

SCEUB 1988889 
PRINT"BI":SPCPI; "ag _____" 
PRINTSPC<E) "924 wi" 
PRINTSFC<SIS TU GO U m" 
PRINTSPC 3): "JM A" 
PRINTSFCCS)S "PR mi" 
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13188 PRINTSPCIEIF EA m" 

13178 FRINTSFCCSIF UM ui" 

13180 PRINTSPC<SIF "WEM mi" 

13188 PRINTSPC (7), 79 

13288 PRINTSPC<(EIF"Z Nr 

13250 PRINT 'ERBRPEBBBBI" :C#(4) 

13288 RETURN 

14088 FOKES63793,186 

14 1a8 GOSUB199238 

14118 FRINT'II": SER LEI OU HHUHYYYYYYYYYYHYS" 
14120 PRINTSPCC2IZ"HOYYLYHYYYYYYIYYNY" 

14134 PRINTS eh "aa Ble";SPC(8);"e Zw" 
141493 FRINTSPCLZ.7 "MN 3SPC(SI;" u" 

14 1S9 FRINTEFCCBDG TE ——— 7a dene)" 
141692 PRINTSPC OS ge —— wm" 

1417QG FRINTEFC(FI: HIN ar a w" 
1arsa FFÜT ARD" CHI Sn 

194288 RETURN 

Ss388 POKRE:S5E73,42 
15109 SC3UB19009 

15112 PRINT'SIIN";SPC(3) 
15128 PRINTSPC(SY: "28 
15138 PRINTSPC (39;7"3 
15148 PRINTSPCL2I7" 
15153 PRINTSPC(3I7"4 
12120 FPRINTSPC<SIS"M 
15178 PRINTSPC<(3), "7 77777722" 
152080 RETURN 

169088 PF INT " BinksirgapeiegeietsinstateHrn U y 
16118 PRINT'eETW yue" 

1e1z6 PRINT'aIG m" 

16120 FRINTTI TI 9 " 

15148 FRINT'ERIF ww " 

16158 PRINT"A®YF 8: 

15168 FRINT" DM am" 

16178 PRINT" a m" 

18208 G=1: RETURN 

16599 PRINT "Sgelalnininpeinieinininintein] Mid Men " 
16520 PRINT pm " 

16538 PRINT Du 8" 

16548 PRINT’ 3 uw" 

18568 PRINT'AeSM wie" 

16578 FRINT" au m 9 m" 

165838 PRINT'IE ma m" 

16708 G=8: RETURN 

READY. 
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s 

B 
y" 
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BIRREE“ 
1 0 
unbe 
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mEmEE 
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WERSIBOARD ALISIEH SH 
FÜR COMMODORE C 64/xX 64 "= ze 


Das WERSIBOARD-SYSTEM MUSIC 64 besteht aus einem Orgel-Manual im Commodore 
Design, einem Interface-Modul und zugehöriger Software. Gemeinsam mit dem ” 
Commodore VC 64 entsteht ein Musikinstrument mit bemerkenswerten Fähigkeiten. H e EINFÜHRUNGSPREIS 


Komplett-Paket bestehend aus: 1 
KEYBOARD SOFTWARE A 495 ums 
— 49 Tasten, 4 Oktaven C-C — auf 5%'' Diskette 2 DM 5 


— PROFIFORMAT — Programm MONO 64 — 5 inkl. MWSt./zuzgl. 
— Gehäuse aus stoßfestem monophoner Synthesizer Versandselbstkosten 
Kunststoff im — Programm POLY 64 — N | 
Commodore-Design polyphones Keyboard 
— Interface-Modul — Klangfarben direkt am PC 
mit Verbindungskabel, veränderbar 
reg). . 


OWERSIES gel- und Piano-Bausätze - Industriestraße - 5401 Halsenbach 
Telefon (06747) 7131 : Telex 42323 


dustriestraße, 5401 Halsenbach, Telefon 06747/7131 
hlungs- und Servicebedingungen zur sofortigen 

su WERSIBOARD MUSIC 64 Einzelpreis DM 495,- «Gesamtpreis DM 
Personal Computer Music zuzüglich Versandselbstkosten 
Zahlung erfolgt: OD per Nachnahme O per beigefügtem Scheck O per Vorauskasse 
OD Übersenden Sıe mir vor Lieferung die Rechnung O Überweisungsbeleg ist beigefügt 


Absender - 


a ze Noch heute bestellen! 


Unterschrift 
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11 
12 
13 
14 
15 
16 
el) 
33 
48 
41 
42 
43 
44 
45 
46 
47 
48 
49 
sd 
51 
190 
101 
182 
183 
194 


106 
197 
108 
499 
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IF P>158 AND SB=1 THEN SCH=SCH+1:SB=2:GOSUB 198 


IF P>HC THEN HC=P 
IF SCH=8 THEN 1888 
N= INT RNDI 8) %6) 


IF N=1THEN GOSUB3299 


GOTO 38 

F=INTERND<S K)%38+1) 

PRINT'BZ B":PRINT TAB<CA2)"SDe" 
FRINT"=3 B":PRINT TABCAI"EDI«" 
PRINT"BZ B":PRINT TABCA3) "OT" 
PRINT " BERIEDDSUINDERIKDepeIN] 


REM STEUERUNG 


GET A: IF A$="Z"THEN R=R-1:1IF R<1 THEN R=eil 


@ REM BATTELSTAR%##VON MICHAEL HERINGx#1984 4% 
1 HC=98:G0T0 2988 
2 SCH=4:P=B:R=-5:A=1:A2=1:1A3=9 
3 POKE 658,128:SCH=4:P=9:SB=1 
4 POKE 36878,15 
5 POKE36877 ‚254 :FORA1=8T0255:POKE36876 ,‚A1:POKE36876 ,8:NEXT:POKE36876 ,8:POKE36877 
‚BÖ:PRINT"Ü" 


8 PRINT"S" 

7 PRINT"3HC= "5HC5 PRINT"  SCHIFF"3SCH:PRINT 
8 PRINT’ PUNKTE "5P:PRINT"O" 

9 PRINT 

18 POKE 36979,8 


IF A$="M"THEN R=R#+1:IF R>15 THEN R=16 


IF As=" 


"THEN GOSUBS2® 


B":PRINT TABCR)" ik uk" 


Sie es schaffen, die feindlichen Erkundungsschiffe 
und Landefähren abzufangen, um so unseren blauen 
Planeten vor der totalen Zerstörung. zu bewahren. 
Das einzige Hilfsmittel für Ihren schwierigen Auftrag 
ist eine kleine Laserkanone, die Sie mit den Tasten Z 
(links) und M (rechts) bewegen und mit der Taste 
Space aktivieren können. Viel Erfolg hei Ihrer 
Rettungsaktion! 


1985 POKE 386875,213:FOR 


IF F=1 THEN GOSUB 7088 
IF F=18 'THEN GOSUB328 


IF F=5 THEN GOSUB 498 

REM BONUS 

GOTO 6 

POKE 36878,15:POKE 36875,198:FOR 2Z=1 TO 125:NEXT 2 
POKE 36875,221:FOR Z=1 TO 125:NEXT Z 

POKE 36875,227:FOR TO 125:NEXT Z 

POKE 36875,221:FOR TO 125:NEXT 

POKE 386875,217:FOR TO 125:NEXT 


TO 125:NEXT 
POKE 36875,284:FOR TO 625:NEXT 
POKE 36875,8:POKE 36878,8 

RETURN 

PRINT TABC A3) "ROODIIITITTITITI " 


NNNNN 
nenn M 
De u u 
NNNN 
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FOR H=1 TO 11 
PRINT TABCA3)"L" 
NEXT H 


POKE 36878,15:POKE 36877,288:FOR Z=1 TO 388:NEXT 2 


POKE 36877,8:POKE 36878,15 

IF R+2=A3 THEN SCH=SCH-1:60T0 988 
IF R+1=A3THEN SCH=SCH-1:G0TOI89 

IF R=eA3THEN SCH=SCH-1:G60T0988 

IF R+3=A3THEN SCH=SCH-1:G0T0988 
PRINT TAB A3) "DOOIIITIIIITIIITmG 3" 
FOR H=1 TO 14 


> PRINT TABCASI "mE U" 


NEXT H 

RETURN 

GOSUB 4508 

GOSUB 4998 

IF R+2=A THEN P=P+1:60SUB 694 

IF R+2=A2THEN P=P+5:6G05SUB 698 

IF R+2=A3THEN P=P+18:G0SUB 699 
RETURN 

FOR H=1 TO 28 

POKE 356878,15:%=1INTCRND< X) #249+8) 


POKE 36877,128:FOR Z=1 TO SO:NEXT Z:POKE 36377,8 


POKE 36879,8 

NEXT H 

POKE 36879,8 

RETURN 

REM 

PRINT TAB A) "REXIXEIIITIIIIIDN " 
FOR H=1 TO 13 

PRINT TABCAI"L" 

NEXT H 


POKE 36878,15:POKE 36877 ,228:FOR Z=1 TO 358:NEXT 2 
POKE 36877,8:1F R+2=A THEN SCH=SCH-1:G0T0O 989 


IF Rt+ti=A THEN SCH=SCH-1:GOTO 989 
IF R=A THEN SCH=SCH-1:G60T0 398 

IF R+3=A THEN SCH=SCH-1:G0TO 99898 
GoTa 712 

PRINT TABt A) "OOLODOIDIIIITI I 9" 
FOR H=1 TO 14 

PRINT TABIM) "EZ 3" 

NEXT H 


; RETURN 


PRINT TRABC A2) "ODDIIIIITTITITITES 
FOR H=1 TO 14 

PRINT TAB AR2I "I" 

NEXT H 


POKE 36878,15:POKE 36877,2988:FOR Z=1 TOD 308:NEXT 2 


POKE 36878,8:POKE 36877,® 

IF R+2=A2 THEN SCH=SCH-1:G0T0 988 
IF R+1=A2 THENSCH=SCH-1:G0T098® 
IF R=A2 THEN SCH=SCH-1:60T0929 

IF R+3=A2THEN SCH=SCH-1:G0T0388 
PRINT TAB A2I "DEIIITIIII IT TI IDmE 8" 
FOR H=1 TO 14 
PRINT TAB(R2)" I =" 

NEXT H 

RETURN 

FOR H=1 TO 198 

POKE 36878,15:POKE 36877,198 
PRINT TAB RI "TMANZANE" 


FOR 2=1 TO 1B823:NEXT Z:POKE 35877,8:FOR 2Z2=1 TO 


POKE 36977,198 
PRINT TAB<R) "DRNSAINSAEN" 


FOR 2=1 TO 1B89:NEXT Z:POKE 368877,8:FOR Zi=1 TO 18 


NEXT H 

POKE 36877,8 

GOTO 4 

POKE 368793,27:PRINT"3" 
PRINT"SPIEL ENDE" 


PRINT:PRINT"PUNKTZAHL "7NAS3P:PRINT 


PRINT:PRINT"DER HIGH-SCORE IST" 
PRINT:PRINT" 
INPUT"NOCH EIN SPIEL">YS$ 

IF Y$="JA"THEN S=188:G0T0 2398 


"3HC3 SPRINT" PUNKTE *":PRINT 


18:NEXT 22 
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1297 
ı12a3 
1809 
2za08 
2801 
2002 
2993 
2904 
2905 
2906 
2097 
29088 
29889 
2018 
eoll 
evl2 
29813 
2014 
2815 
2816 
29017 
2018 
2019 
229208 
ev21 
2108 
2101 
eie2 
2183 
2104 
2185 
2186 
2197 
2188 
2388 
2301 
2392 
2393 
2394 
2385 
2396 
23907 
2388 
2311 
2312 
2313 
2314 
3898 
30281 
3992 
3a83 
49099 
4881 
4092 
498093 
49815 
aaıe 
4917 
42918 
49219 
4a29 
4221 
am22 
45098 
4501 
4592 
4503 
4594 
4505 
4586 
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IF Y$ 3"JA"THEN 1908 

POKE 659,8 

POKE 659,8:END 

PRINT CHR$ 147):POKE 36879 ,27 
PRINT" n" 
PRINT : 
PRINTUIKICICILIEHIEILIEIKEIK IK I" 
PRINT 

PRINT" xx BATTELSTAR maxi" 
PRINT"! 
PRINT 
PRINT" EIN SPIEL":PRINT 

PRINT'E VON" PRINT 

PRINT"@ MICHAEL HERING*:PRINT:PRINT"g 
PRINTEPRINT"IK ICHS ICHS IE IEICISICIC I" EPRINT 
PRINT" 33 m" 

FOR Z=1 TO 1898:NEXT 2 

POKE 36878,15 

RERD A 

RERD B 

IF A=-1THEN:GOTO 23989 

POKE 36875,n 

FOR Z=1 TO B 

NEXT Z 

GOTO 2814 


DATA 1988,125,221,125,227,125,221,125,217,125,213,125,204,125,204 ,500 


C)7/1984* 


DATA 8,259,213,125,217,125,221,2590,0,9,221,259 


DATA 8,8,221,125,217,125,213,125,204,125,204 ‚258,284 ,125 

DATA 8,259,193,125,8,0,188,125,221,125,227,125,0,250 ,221,125 

DATA 227,125,217,529,8,259,213,125,217,125,221 ,250,0,8,221,2508 

DATA 8,8,221,125,217,125,213,125,284,125,294 ,589,0,2598,213,125 

DATA 217,125,221,250,0,0,221,259,0,8,221,125,217,125,213,125 

DATA 294 ,125,224 ,259,294,125,213,125,218,125,213,125,217,125,213,125 


DATA 213,1989,8,1009,-1,-1 
PRINT"S*":PRINT'Z BATTELSTAR" 


PRINT" = 

PRINT:PRINT"M SCHIESSEN SIE DIE":PRINT:PRINT" 
PRINT:PRINT 

PRINT" Bra] = 1 PUNKT 

PRINT" Meg = 5 PUNKTE 

PRINT" ih =18 PUNKTE 

PRINT 

PRINT"======222===200=00202020g" 

PRINT"  Z=RECHTS/M=LINKS SPACE =FEUER" PRINT 


PRINT" BBEIM4 159 BPUNKTEN":PRINT:PRINT*® 
INPUT"SPIELER"3NAS$ 

GoT0o 2 

A3= INT RNDI X) #29) 

A=INTCRNDI X) 28) 

AZ= INT RNDI X)%29) 

RETURN 


1 SONDER SCHIFF":PRINT:PRINT 


PRINT"ä":PRINT TAB{R+2) " RINDEINDEDEEEEDEEEEEDE | " 


FOR O=1 TO 16 

PRINT TABCR+2) "ID." 

NEXT O 

PRINT’S" 

PRINT TABCR+2) " MRREBBEDEEREEBETEBETEEE | * 
FOR KA=1 TO 16 

PRINT TAB(R+2) "TO. * 

NEXT KA 

PRINT" 2" 

PR INT " EDEDDDEISDeDEDEBEBEDEg " 
RETURN 

POKE 36878,15 

FOR L=1 TO 1 

FOR M=289T0228+L#2 

FOKE 36876,M 

NEXT M:NEXT L 

FOKE 36876,8:POKE 36878,8 
RETURN 


READY. 
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UFO'S AB." 


20 


Secret 


für den VG-20 + 3K 


Sie werden heauftragt, der GSG 9 eine geheime 
Laserkanone aus einem alten Labyrinth zu beschaf- 
fen. In diesem Labyrinth gibt es Geister und tiefe Brun- 
nen, die Sie aber nur kurz sehen, weil Sie keine Ta- 
schenlampe dabeihaben, und das letzte Streichholz 
verbrannt ist. 

Berühren $ie einen Geist oder fallen Sie in einen Brun- 


FREMAA a kakaaaaaka 
REM#+ THOMAS VOGEL%* 
REM aka 


C=B8:HR=8B:GE=-36877:FOKE35S79,3:60T035 
EM*«HHSPIELFELCKEH 
SC+i PRINT", 


N 


„m @ 


STORE :GOCSUEEBOO:A=7793:6=38423: 

FI OEIELITELIEE TREE DIELLELLET* 

c1ly>etDSIETIEETIEELELIELLLTIELI* 
ATCEI=S"DMILCCLILLLLILLELLILLLLCL)J* 
AECSIS"DAITLLLILLCLLLICLELLCIL I I" 
AFCIIS"DSIILCLLLCILECLLLLILCLLLLLI I" 
AECSIS"OSILCCLLLLILELLLLCICLLIL I" 
ASCEI=S"OSILLILLILLLILLLLILLLLL I" 
ASCTIS"DAITLEREELIESELCETCT ET 1 * 
AECSI=S"DIILIIITCLLIICLLLIILLLLL I" 
AECIHI=S"DIILCLICLLIILCLILELLLIELILI* 
ASCIOI=S"OSILIITLLLLIICCLLILILE)II" 


Wu 0 


[2] 
i 
= 
& 
= 
e 
2 
2 
e 
S 
> 
oO 
je 
3 
= 
3 
3 
3 
e) 
3 


- GW NND UM 


nm 


PRINT"3";:FORI=BTO21:PRINT"]J*"7:NEXT 
PRINT " BIMISIKLAISEIKTEIGeIRIEeEe 
REMA%HWÄFFEH HK 
AR=INTERND (LI r4SsZ2I + L !W=eA+AA:V=BtÄAA 
IFU<?7BESORW>SI3SETHENA4 

F=-FEEK (WD 

IFF=280RF =230RF=310RF=33THENdA 
POKEW,SO:FOKEV,A 

REM%*++GEISTER AH 


IFS<77BSORS?SL3ETHENS®O 
J=PEEK(S) 
IFJ=-280RJ=290RJ=3980RJ=3 1 THENSO 
POKES,33:POKET,® 
REM&**+BRUNNENY HH 
CC=INTCRNDC1IK4E2) +1L:Y=A+CC:M=B+CC 
IFY< 778O5ORY>S136 THENEO 
Q=FEEK(Y) 
IFQ=230RG=230RQA=3B80RU=31THEMSEO 
POKEY,S1:FOKEM,B:NEHT 
3 IFHR=ITHENRETURN 


-nnnnnonunanan an db PR LBL DIL DNM 
UV LWND- DD uLw 


aALUuUMm-Ow 


Compute mib 


nen, so gibt der Gomputer Ihnen noch eine Chance, 
und stellt Ihnen eine Rateaufgabe. Wenn Sie diese Auf- 
gabe auch nicht meistern, so haben Sie Ihr Leben ver- 
wirtet und das Spiel ist zu Ende. 

Viel Glück! 

Das Spiel wird mit dem Joystick gesteuert. 


SC=8:POKE36378,15:G60SUB5099:POKE37154,255:G0S5UB7998 


EFLERFELD: "SC "OODOIIIIIITIIIIIIIIIIIT)" :POKES 


FORI=S1TOZ1:3X=INTCRNDC1)IK1 1) :PRINTASCKSI:NEXT 


;:FORI=8TO21:PFRINT"]"7:NEXT 


FORI=1TOINT«FA/23:BB=INTCRND (1)x9462)+1:5=A+BB:T=B+BB 
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1188 REM+ x&xHAUPT- KK KK 

1181 REM«x&PROGRAMM%k KK 

11085 GOSUB3008:G60T0 1258 

1118 FOKE371S4,127:P1=PEEK (37152):P2=PEEK <37151):E=8 

1128 IF<PZANDI8)=BOTHENPOKEGE ‚248: POKEGE ‚8:G0SUB 1240: A=A-1:8=B-1:G60SUB1218:G0T011 


eo 

1138 IF<CF2AND4 I=OTHENPOKEGE ‚240: POKEGE ‚0:G60SUB 1240: A=A-22:B=B-22:60SUB1219:60T01 
172 

11408 IFLFEANDSE)=BOTHENFOKEGE ‚240: POKEGE ‚9:608UB 1248: A=A+22:B=B+22:60SUB1219:60T01 
ı28 

11508 IF<PIATDIES)=OTHENPOKEGE ‚249: FOKEGE ‚0:60SUB 1248: A=A+1:B=B+1:60SUB1219:60T01 
133 


1169 IFE=ZITHENASA+1:2B=B+1:G0OTO12SO 

1179 IFE=2STHENA=A+22:B=B+22:G0T0 1258 

115 IFE=S2STHENA=SA-22:6=8-22:G0T0 1259 
1130 IFE=Z2ZTHENA=SA-1:B=B-1:60T01250 

11231 IFE=IGTHENLSSQ 

1122 IFE=S1THENSSSS 

1123 IFE=33THENIOOO 

GOTILEZESO 

IFA<7ESITHENA=7689:8=334009 
IFA>BSLIS4THENA=8185:8B=385995 
E=PEEK (AH) RETURN 
POKEA,42:FOKEB,B:RETURN 
FOKEA,2Z3:POKEB,1:G0T0111® 
POKEA+C,D:POKEB+C ,3:60$UB3888 :RETURN 
REM+«EILDWECHSEL * 

POKE3CS73,49 

FORI=2SSTOOSTEP -S:FORA=1TOS:NEXTA:POKE3SS76 , I:NEXT:FORI=1TO280808 :NEXT:POKE3S 


+ 

sm 
ab J)WmM Mm 
0202200 


200 


JDOCnRn rum m m rn 


[97 


FÜRI=3STOISOSTEP.3:POKE3IE36S,IT:NEXT 

HR=1:605UB25 

FCR1=150TO38STEP -2:POKE3E365, I:NEKT 

FA=FA+1:GOTO11BS 

FOKE3SES73,48:FORI=1TOLE:NEXT:POKE36379,8:RETURN 

REM+&#VERLIERERK%* 

REM#RHERLUNNENK RK % 

RESTÜRE 

FOrE3IES?SI,49A:GOSUBEAQN 

FOR I=2ESSTOOSTEP-.S:POKE3E374,I:NEXT:FORI=1T03009:NEXT:POKE36873 ,8 
PRINT"US@3 IE SIND IN EINEN STIEFEN ERUNNEN GE- BFALLEN. 
PRINT" SBDIENN SIE JEMAND RAUS- BHOLEN SOLL ‚DRUECKEN BSIE >)" 
PRINT"ZIMER COMPUTER ENT- SSCHEIDET DANN OB SIE WIM BRUNNEN VERHUNGERN 


oouovua 


sau nuD80D0 
V"-0000DDO0*\. 


3 © 


VOUS WUD DD NO nun un nn nn 
KANN ENWUDOLUNO 


SG 
no ao 0 


ıN 
{0} 


3 FRINT" Gi EC ' RE) " 

0 SETAS: IFAF=""THENSSIO 

Il IFREeStAtORAS="Z "ORHE=", !ORAS="/"THENSS1O 
15 IFAS="I"THENLO=INTERNDL1)%2) 

IS IFA&LO"I"THENPRINTOIAGISIE SIND BIS JETZT DERBERSTE DER VERHUNGERN BWILL." 
scToS522 
) 

1 
s 


I 62 (I il » 


an ean en en u 


PS) 


G 

S2 IFLO=ZTHENPRINT"IIEBIISCHADE SIE WAREN DEM MEOMPUTER UNSYMPATISCH " 

352 IFLO<3ZTHENGOTO3SZ e 

SS2Z2 FRINT"SEBIE ERREICHEN JEDOCH Wpnrs "Sc" FELD. ":PRINT' INISSREADY. DI" :END 

3525 PRINT"ÜOSSISHABEN SIE EIN GLUECK, PAS DER COMPUTER SIE BAG . SIE DUERFEN N 
OCHaHAL. 

SS26 FORI=ITOEAAB:NEKXT:RESTORE :GOSUBEAH9:GOTO2298 


3558 REM#+%*#VERLIERER»#% 

5SS51i REMx#+KGEISTERK#% 

4988 RESTÜRE 

4189 FÜKES6S7I,49:GOSUBEA9D:POKE37154 ,255 

44988 FOR 1=8T02SSSTEP3:POKE36874 , 1L:NEXT:FORI1=255TOBSTEP -.S:POKE36874 , I:NEXT 

4458 FOR1=1T03888:NEXT:POKE363793,8 

4508 FRINT"ÜSDER SINN DES SPIELS BIST ES DIE GEHEIMWAFFERZEU FINDEN, UND NICHT 

4581 PRINT"NSIGEISTER UMZURENNEN. ":GOSUBSODD 

4505 PRINT"OIERPRUR STRAFE WERDEN SIE MAN EINEM DUENNEN SEIL BUEBER EINEN BRUNNEN 
SBE FRINT"SIGEHRENGT. UM SICH ZU MRETTEN,MUESSEN SIE BEINE ZAHL ZWISCHEN 1+ 

SANAEHLE 

45907 FCKE13S,A:WAIT198,1:GETA$: IFA£=" " THENA597 

4510 ZC=INT<CRNDC1)%3) +1 

4515 IFAS="1"THENZU=S1 

4516 IFA$="2"THENZU=2 


je 
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4517 IFAE="3"THENZU=3 


4528 IFZC=ZUTHENPRINT"SEEBRAVO SIE HABEN IHR 


4538 


GOTO4568 


BSLUECK FEST IM GRIFF.":G60T04558 


4558 PRINT"MSZUR BEHLONUNG DUERFEN MSIE NOCHMAL. ":60SUBS280:RESTORE :G0SUB6888:G0 
TO2908 


4568 
4565 
5088 
soo1 
5082 
5995 
59805 
Sso96 
5997 
5916 
5917 
5108 
5ıoi 
5183 
5183 
5185 
5186 
51907 
Si16 
5117 
5200 
s2oi 
Ss218 
52208 
5238 
5248 
5258 
5268 
5270 
Ss280 
5230 
5508 
gs008 
8952 
8190 
s11o 


050 
Sao 
sedt 
son: 


EORZ 


FEHEN 


22 


PRINT "ÜASERBJARUM HABEN SIE DIE BZAHL"ZU"GEWAEHLT UND M NICHT "ZC"." 
PRINT"ASBSCHADE DER GEIST WAR BHIHR VERHAENGNIS.":GOTO3522 
K=1l:ıYy=.5 & 
POKE?7328+2+Y,33:POKE7988+X+Y+1,28 
POKE3S799+X+Y,1 
Kex+l 
FOR1=1T0228:NEXT 
POKE7988+X-Y,27 
POKE3STO3+41-Y,@ 
IF*=21 THENGOTOS 188 
GOTOSBB1 
zu 
POKE7983+X-Y,33 
POKES3S788+X-Y,1 
N=X-1 
FOR1=1T0288:NEXT 
POKE7938+Xx+Y,27 
POKE33783+Xx+Y,8 
IFX=1THENRETURN 
GCTOS181 
REM% BEWEGUNG 
REM+*#+%#GEIST 
x=21 
POKE7938 +X-Y,28 
POKE387B8S +82 -Y,1 
KekX-1 
FORI1=1T0O28B8:NEXT 
POKE79838 +X+Y,27 
POKES8788+X+Y,0 
IF#=1 THENRETURN 
GOTOS2E29 
REM+ x «DATA'Skar% 
FOR1=7334TO?511:READA:POKEI,A:NEXT 
DATAO,08,8,8,8,80,0,8 
DATASQ,126,998,255,255,102,68,24,255,195,165,153,153,165,195,255 
DATA, ‚96,243 ,255,248,96,,24,36,66,129,1293,66,,36 ,24 , ‚sr 
DATAMES,62,942,62,62,62,62,42 
DATAB,8,98,0,0,0,0,0,31,32,85,157,19493,98,15,16,255,0,77,73,183,9,201,63 
DATAZ24,16,138,8,136,8,176,192,8,8,80,8,08,1,2,2,32,64,128,8,80,0,8,0 
DATAZ,2,26,39,35,63,53,497,59,97,59,97,593,97,61,47 
DATAB,0,9,24,24,0,0,8 


373,93:POKE36563,249 

AE="iStSc TOP SECRET >>>>>":PRINTAS 

FRINT"AUWS IE WERDEN BEAUFTRAGT DER GSG 9 EINE GEHE IMEMLASERKÄANNONE IN 
PRINT"BEINEM ALTEN LABYRINTH BSICHERZUSTELLEN. " 

GOSUBSEODOD 

PRINTAS$ 


PRINT"MESACHTUNG: SPA SIE KEINE MTASCHENLAMPE MITNEHMENNDUERFEN,KOENNEN SIE 


FRINT"BDIE GEISTER UND DIE BBERUNNEN NUR AM EIN- BSANG KURZ SEHEN." 
GOSUBSBAD 

PRINTAS$ 

FRINT' BERBEBIS TEUERUNG : " 

PRINT"B5SESTEUERT WIRD MIT DEM JOYSTICK 


INPUT "BB EVEL <O-93"5LA:LE=-5B99- (L4xSOO), 
FÜKE25363,255:RETURN 

FRINT'IBEmMBE >:F7<<" 

GSETBS&: IFBE=""THENSOOL 

IFE#= "gl" THENRETURN 

IFB&S< > "gl" THENSQOB1 


Compute mib 
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Zwei Dataseiten 


am 6-64 


So können z.B. Dateien wesentlich einfacher verwaltet werden. 


Stellen Sie sich z.B. ein Pro- 
gramm vor, welches Namen 
und Adressen in Files auf Band 
ablegt. Die Files wollen wir 
A,B,C,D und E nennen. 

Der Computer kann nun ein 
Eingangsmenue erstellen, von 
dem der Benutzer ein 
Kriterium auswählen kann. 
Nehmen wir als Beispiel den 
File “C”. Der Computer sucht 
nun das Band nach File “C” 
ab, findet er diesen, wird er in 
den Arbeitsspeicher geladen. 
Nun kann ein Problem auf- 
treten: Wenn neue Daten ein- 
gegeben werden, oder Daten 
geändert werden, wird die Da- 
tei dementsprechend länger. 
So kann es passieren, daß 
zwischen File “B” und File 
“D” der Platz für den neuen 
File “C” nicht mehr ausreicht. 
Die Folge wäre das Überschrei- 
ten des Files “D”. 

Alternativ dazu, kann man 
nun das Mastertape und die 
Dateien auf zwei Datenträger 
aufsplitten. 

Da dies jedoch sehr zeitauf- 
wendig ist und. Unge- 
nauigkeiten der alten Band- 
position hervorrufen kann, 
empfiehlt sich das Arbeiten 
mit zwei Datasetten. 

So kann verhindert werden, 
daß wichtige Daten verloren- 
gehen oder Dateien doppelt be- 
legt werden. 

Abb.1 zeigt das vom Transi- 
stor gesteuerte Relais. Zur 
Ansteuerung muß das Aus- 
gangsregister high oder low 
gepoked werden. 

Die Steuerleitung wird vom 
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PIN C des C-64 User-Ports 
abgegriffen, die Stromversor- 
gung erfolgt über PIN 10 (+) 


und PIN A (4). 

Die Kassettensteuerung wird 
vom Kassettenport abgenom- 
men und in den Leitungen 
Motor, Read und Switch um- 
geschaltet (Abb.2) 


Bestückungsliste: 
Widerstände: 

1-1K 

1-10K 

Halbleiter: 

2-1N4001 

1-BC108 oder Vergleichstyp 
Kapazitäten: 
1Elektrolydkondensator 
68 yF/120V 
Zusatzhauteile 
1-3-poliges Wechselrelais 
1-User Port Stecker 


9999999999 
Abb. 


D 
PIN 10 —ı 
(9V AC) 


Mit Hilfe der nachfolgenden Schaltung können zwei Datasetten am C-64 betrieben werden. 


PING 
(PB 0) 5 
I 
H 
PINA 
(6ND) [ 
1} 
Li 
EEE User Port 
Treibersoftware 


5 Input”1=Tape 1:0=Tape 2”;x:lf x< O orx> 1Then 5 


2-Datasetten 2 En = N 
2-Datasettenstecker 30m = CB+3 
1-Datasettenbuchse _ 
(sr) 4003=0 
5004=1 
Kass.- grange 
Port,o 5 schwarz 
+5 vo Ei u n En 
ea er 
Ban 
a Bl ” aan 
Relais 
Kontakt 


Compube mit 


60 POKE C3,63 
70 POKE C4,7 
80 POKE C2,255 
90 POKE C1,X 


135 DATA 
145 DATA 
155 DATA 
154 DATA 
178 DATA 
438 DATA 
129 DATA 
239 DATA 
218 DATA 
‚225 DATA 
236 DATA 
245 DATA 
259 DATA 
265 DATA 
278 DATA 
2568 DATA 
235 DATA 
396 DATA 
s18 IATA 
325 DATA: 
335 DATA 
343 DATA 
353 DATA 
366 DATA 
378 DATA 
358 DATA 
335 DATA 
405 DATA 
415 DATA 
425 DATA 
433 DATA 
445 DATA 
455 DATA 
DATA 
DATA 
85 DATA 
3 IATA 
za DATA 
DATA 
DATA 
IATA 
DATA 
sa DATA 
e3 DATA 

3 DATA 
3 DATA 
DATA 
3 DATA 
DATA 
DATA 


» LATA 
29 DATA 
55 DATA 
DATA 
LATA 
>53 DATA 
3 TATRA : 


3 DATA 


»”m 
Fin 


5 DATA 3 


DATA 8 


Renumber 


für den C-64 


Dieses Basic-Lade-Programm erzeugt nach dem Start durch 
RUN ein Maschinenspracheprogramm auf der Diskette (oder 
Kassette nach Anderung der Sekundär-Adresse) unter dem Na- 
men “Renumber”. Befehl. 
Wird dieses Programm absolut (mit Load “Renumber”, 8,1) in 
den Rechner geladen, so besteht nun für den Anwender die Mög- 
lichkeit, ein sich im Speicher befindliches Basic-Programm neu 
zu numerieren. 

Dies geschieht mittels SYS 50076,st,sw — wobei st die An- 
fangsadresse und sw die Schrittweite bedeuten. 


158 OPEN1,8,1, "@: RENUMBER" :FRINT#1,CHRECOICHRFC1IZD ; : A=6 
115 FÜRI=43152T059161:RERDG:PRINT#1.CHRECO) ; A=fi+Q NEXT :CLOSEI 
128 IFA<S>13787Z2THENFRINT"4CHTUNG FEHLER IN DATAZEILEN" 


32,253, 174,32,138, 173,32, 247,183,165, 26, 133, 176,133, 251,165 
21,133, 177,133, 252, 32, 253, 174,32, 138, 173. 32, 247,183, 185,208 
133,159,1655, 21,133, 153,169,0,133, 173,133, 167,189, 196,133,179 
169,8.133,168,169.1,177,187,268,5,208,177,167,249,79.1659 
1.177,167,133, 169, 208, 177,167, 133, 178,286, 177.167,170,208. 177 
167,.169,1,145,178, 156,133, 145,178,24,165,178,195,2,133,178 
165,173,185,0,133,173,168,3,165,176,145.167,268, 165, 177,145 
167,56,165,169,233,.1,133, 167,165, 170,233, 8,1533, 168, 24,165 
176,181,158,133, 178,165, 177,181, 159,133, 177,76,52,192,169,1 
123,176,169,8,.133,177,133, 166, 169,5, 133, 165, 168,8,177,165 
281.137,246.62,201,148,240,58,201,141,249,54,261,167,240,56 
261,0,208,37,168,8,177,176,179,203,7.208,177.176,268,1 
95,136, 269,177,176,133,177,134,176, 24,165, 165, 105,5. 133,165 
165, 165,105.8,.133, 166, 75, 155,192. 239, 165. 203,193, 238, 166,76 
159,192, 234,165, 203, 2,238. 166.177,165.261,32,248, 244,166, 165 
124,243, 166.165,134, 250, 201,48, 144, 166,261,58,176,.162,132,253 
132, 254,162,1:24,233,47,133, 2, 165, 254, 133, 171,169, 253,18 
>5,171,18,35,171, 181, 253,133, 253, 165,171, 191,254, 133, 254; 65 
253, 35,254, 165,253, 181,2, 133, 253, 144,2, 238, 254, 238, 165. 263 
‚238,166, 177,165. 201,48,144,7,201,58,176, 3,232, 144,196 
534,181,132,178,169,196,1353,179, 166, 0,177,178,1937,253,288,7 
zuac, 177,178: 197,254, 240, 17.24, 165,178,185, 2,133,178,165,.173 
199:9,133,179. 201,268, 208,222, 1608,8,132,2,132,171,56,165 
173,233,135.133.173, 24, 102, 179, 192,175, 24, 1685,2,101,158, 133 
<2,165-171,181,159.133, 171,56, 165. 179,233,1,133, 178. 165,179 
223.8,133,179,176,223,24,165.2,181,251,133,2,165, 171,101 
232,123,171,56,165,.2,229, 159,133, 2,165, 171,223,1593,133, 171 
251.39,144,13.2099,6,165,2,201,16.144,5,162,5,76,248 
193.165,171,2681,3,144,13,2588,6,18659,2,261,232,144,5,162 
4.76,249,133,1865,171,268,6,165,2,291,186,144,5,162,3 

76,248, 195,165, 2,261,18,144,5,162,2,76,2458,193, 162,1 

134,255: 1393,56, 229.181.153,151.208,3,76,2256,194,48,119,24 
165,159, 161,181,133, 169, 133, 247, 165,178, 105,6, 133,178,133,. 243 
168,8.177,247,164,181,145. 247,55, 165, 247,233, 1,133, 247,176 
2,198. 243,165, 247,197, 243, 2093, 231,165, 243, 197,259, 288, 225,165 
176.133, 247,155, 177,133. 248, 158,8, 177,247,288,3:176, 268, 177 
247.248, 28,136,138,24,101, 181,145, 247,288, 177,247 ,105,8,145 
247,136,177,247,178, 268, 177,247,133, 248, 134.247,76,55, 134,24 
165.45, 181,181,133,45, 144,2, 236, 46, 76, 226,194,198, 181,165 
181,73,255,133,181.558, 185.165, 223,181,139, 247,165, 165,233. 
133, 243,164, 181.177, 247, 160,8, 145. 247,239, 247, 203,2,238, 248 
155, 247,197,169, 265, 236, 165. 248, 197,178, 208, 236, 55, 165, 169, 223 
181.133,169,176,2. 198. 170.56. 169, 45,229, 181, 133,45, 176,2 

123. 46,165.176, 1533, 247,165, 177,133, 248. 168,8,177,247,208,8 
178, 209.177,247,240. 23,138, 133, 56.223, 181,145, 247,268, 177.247 
223,8,145,247,136,177,247,178, 268,177,247,133, 248,134, 247,76 
1265,134,165. 255. 201,4.248,44.,201.2.240,194,201,3,248,65 
zöil,1.2 248,118. 162,8,56, 165, 2,233, 16,133, 247,165,171,233 
32,133. 243,144,12,232, 165, 247,133,2,165, 248,133, 171, 76.246 
134,32 „14T; 135, 162,8,56, 165, 2, 223,232, 133,247 ,165.171,233 
245,144:12,232, 1655, 247,153.2,165,248,133, 171, 76,22 
141,135, 162,6,585,185,2,233,160,133,247,165. 171,233 
245,144,12,232,1655. 247,133, 2,169, 245.133. 171, 76,54 
195, 32,141.195,182.8,56. 165, 2.233, 18,133, 247,144,8,232 

165, 247,153,2,75,88,195,32,141,195,162,0,138,2,45,4 
232.76.185,135,32,141.135, 1655, 249,133, 185, 165. 258, 133, 156. 168 
8, 177,153. 201.44, 248, 3,78,158,192, 76,226,192:133, 168,8 

€ 239.249, 253,2, 230: 25%, 96,169, 13,185. 165 
3,84: 32,0,192,169,13,165.32,253.153 
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INS; Tripkg 


Das Programm berücksichtigt dabei die Sprungbefehle GOTO, 
60SUB ON x G60T0 a,h,.., If x THENa, sowie den RESTORE a 


Es sollte lediglich darauf geachtet werden, daß keine Adressen, 
die größer als 63999 sind erzeugt werden, da der Rechner diese 
nicht mehr anerkennt. 

Auch sollte das Programm “Renumber” vor dem Schreiben ei- 
nes neuen Programms oder dem Laden eines Programms, 
welches neu numeriert werden soll, geladen werden. 


CBM 64 
Kontrolltaste 


Manche Commodore 64 
Besitzer werden vielleicht 
noch nicht wissen. daß die 
CTRL-Taste gemeinsam 
mitdenalphabetischen Ta- 
sten benutzt werden kann. 
um den CHRS Code von I 
bis 26 zu erzeugen. 
Beispiel: 
CTRLundA=CHRS (I) 
CTRLundB=CHRS () 
USW. 

Diese Abfragen können 
entweder im Direktmodus 
verwendet werden. oder in 
einem Programm. 
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Ich habe einen SX-64 portable Computer. 
Da der eingebaute Monitor teilweise sehr 
schlecht zu lesen ist, möchte ich mein 
Gerät nun an einen Farbfernseher an- 
schließen. Am SX-64 ist jedoch kein TV- 
Ausgang vorhanden. 

Können Sie mir weiterhelfen? 


P. Burg, Offenbach 


Redaktion: 

Besorgen Sie sich einen TV-Modulator 
von einem alten VC-20. Das Gerät kann 
das Composite-Video-Signal des C-64 in 
das PAL-Normsignal umwandeln. Ledig- 
lich die DIN-Buchse des VC-20 Modu- 
lators muß gegen den 7-poligen Video- 
stecker des SX-64 getauscht werden. 
Die Anderung in der Verdrahtung des 
Steckers entnehmen Sie dem Hand- 
buch. 


Seit etwa 6 Wochen bin ich stolzer Besit- 
zer eines C-64. Da ich mich hauptsäch- 
lich für Musik interessiere, habe ich be- 
reits zwei Synthesizer-Programme im 
Einsatz. Um einen besseren Klang zu er- 
zielen, habe ich nun den C-64 an meine 
Stereoanlage angeschlossen. Mit Ver- 
wunderung mußte ich nun feststellen, 
daß ein sehr starkes Rauschen zu hören 
ist. Liegt das an meinem Computer, oder 
etwa an der Software? 


6. Kirst, Berlin 


Redaktion: 

Das Rauschen wird durch den SID-Chip 
verursacht. Der SID hat ein gewisses Ei- 
genrauschen, dies läßt sich auch nicht 
unterdrücken. Bei guten Synthesizerpro- 
grammen kann mit Hilfe der Oszillatoren- 
einstellung etwas Abhilfe geschaffen 
werden. 


Kürzlich habe ich einen VG-20 zum Ge- 
buristag geschenkt bekommen. Leider 
komme ich damit überhaupt nicht klar. 
Mir istein Rätsel, wie ich Programme, die 
ich eifrig aus Zeitschriften abtippe, auf 
Kassette speichern kann. 


B. Siern, Hünfeld 


Redaktion: 

Zunächst einmal gibt es 2 Möglichkeiten 
des Abspeicherns. Programme werden 
mit Save "Programmname”’ abgesaved, 
die Datasette wird automatisch ge- 
steuert. Daten werden mit Open 1,1,1,"- 
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Programmname” abgespeichert. 
Im übrigen gibt das Handbuch darüber 
Aufschluß. 


Für meinen VC-20 habe ich mir kürzlich 
ein 64K-RAM zugelegt. In der Hoffnung, 
daß ich C-64 Programme auf meinem VC- 
20 laufen lassen kann. Erstaunt mußte 
ich feststellen, daß nicht eines der Pro- 
gramme mit der 64K-Erweiterung lief. 
Warum funktionierte das nicht und wie 
bekomme ich diese Programme zum 
Laufen. 


K. Reuter, Kassel 


Redaktion: 

Der alleinige Kauf einer 64K-Erwei- 
terung bringt noch lange nicht die Mög- 
lichkeiten, die ein C-64 besitzt. Es bringt 
genaugenommen noch nicht einmal die 
gleiche Speicherleistung wie ein 64'er. 
Die meisten dieser Erweiterungen sind in 
8K Blocks aufgesplittet, von denen im- 
mer nur ein Block angesprochen wird. 
Niemals 64KB auf einmal. 

Anders als beim C-64, bei dem die vollen 
64K auf einmal zur Verfügung stehen, lie- 
gen bei einer 64K-Erweiterung des VC- 
20 immer 56K hinter dem eigentlichen 
Arbeitsspeicher versteckt. Außerdem 
stimmen die Sprungadressen für das 
Kernel-ROM sowie die PEEK-Abfragen 
nicht überein. Und selbst wenn Sie all 
dieses ändern könnten, so würde Ihr Pro- 
gramm spätestens beim ersten Aufruf ei- 
nes Sprites oder Ansprechen der SID 
nicht mehr funktionieren. 


Als erstmaliger Leser Ihrer Gomputer- 
zeitschrift darf ich Sie beglückwün- 
schen, eine aktuelle, frische und mit aus- 
reichenden Programmlisten ausgestat- 
tete Zeitschrift gemacht zu haben, die zu 
einem ”Spitze”-Preis erhältlich ist. 
Nachdem Sie für Verbesserungsvor- 
schläge zugänglich sind, führe ich 
nachstehend einige auf: 

1. Inhaltliche Aufstockung: Programmli- 
sten für Lern- und Lehrprogramme für 
Schüler, z.B. Vokabel-Lernprogramm, 
Deutsch und Maihematik-Lernpro- 
gramm, etc. 

Denken Sie daran, daß sich der Kreis der 
Interessenten erweitert um die vieien 
”Normalverbraucher”. 

2. Die Lesbarkeit von wiedergegebenen 
Programmlisten durch bessere Druck- 
technik verbessern. Graphische Steuer- 
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zeichen mit reverser Darstellung waren 
in Nr. 37/84, Seiten 10, 18, 19-23, 36- 
39, usw., nur zu erraten, besonders, 
wenn es um verkleinerte Wiedergabe 
ging. 

3. Anfänger-Tips für Selbst-programme 
etc. 

4. Leser-Ecke mit Beratungs-Antworten 
der Redaktion 

Ich würde mich freuen, wenn Sie die An- 
regungen realisieren würden. 


H. Mentzel, Erlangen 


Redaktion: 

Stellvertretend für eine Flut von Leser- 
briefen haben wir das Schreiben von 
Herrn Mentzel abgedruckt. 

Wir werden uns in Zukunft bemühen, die 
Softwareprogramme mit mehr Anwen- 
dungen zu füllen. Da die "Compute mit” 
eine Zeitschrift für den Leser ist, können 
auch Sie "Ihre” Zeitschrift mitgestalten. 
Also dann, schicken Sie uns Ihre selbst- 
geschriebenen Programme, bei Abdruck 
gibt's ein gutes Taschengeld. Der Ab- 
druck der Steuerzeichen, da haben Sie 
völlig Recht, war in der Erstausgabe 
wirklich nicht gut lesbar. Doch wir be- 
mühen uns auch weiterhin, Klare und 
deutliche Listings abdrucken, in den Fol- 
geausgaben von "Compute-mit” war es 
bereits wesentlich besser, oder? 

Eine Leser-Ecke haben wir bereits ein- 
gerichtet, wir werden selbstverständlich 
versuchen, jede Zuschrift zu beant- 
worten. 

Anfänger-Tips gibt's bei uns jede Menge, 
unsere Serie "Logik in Selbstgestrick- 
ten” schließt ebenfalls daran an. 

Da wir die "Compute-mit” für Sie ge- 
stalten wollen, fordern wir Sie auch 
weiterhin auf: Nehmen Sie Ihren Ku- 
gelschreiber und schicken Sie uns Ihre 
Anregungen, Tips, Programme und selbst- 
verständlich auch Kritiken. 

Wir freuen uns über jede Zuschrift! 


(sr) 


X * * * + + 
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Das Gommodore 64 Anwenderhandbuch 


388 Seiten Wissenswertes über den 
Commodore 64 - für Einsteiger leicht 
verständlich und für Benutzer voller 
praktischer Tips und Tricks. 


Dieses durchgehend illustrierte Buch ver- 
mittelt alles nötige Wissen für den Um- 


gang mit dem C-64 und seinen 
Zusatzgeräten. 


Dem Anfänger bietet es 

- eine Anleitung für den Aufbau und den 
Betrieb des C-64 und seiner 
Peripherie 

- eine vollständige Einführung in die C- 
64 Basic-Programmierung 

-eine Darstellung der besonderen 
Grafik- und Tonfähigkeiten des C-64. 


Dem fortgeschrittenen Benutzer dient es 


als unschätzbares Arbeitsmittel und 
Nachschlagewerk. Es enthält eine detail- 


Schacht 


BASIC - Schritt für Schritt 


Die Programmierung eines Computers 
wird heute noch zum Teil als Geheimwis- 
senschaft betrachtet, die nur wenige ler- 
nen können. Die Zeit dürfte aber nicht 
fern sein, in der Kenntnisse über die Pro- 
grammiertechnik zum Allgemeinwissen 
gehören werden. 


BASIC ist ohne Zweifel nicht nur die am 
weitesten verbreitete, sondern auch die 
am leichtesten erlernbare Sprache für die 
Programmierung von Computern. Diese 
Sprache wird in diesem Buch auch für 
Schüler und Laien verständlich erklärt. 


Auch wer bereits das Handbuch eines 
Computers besitzt, wird in diesem Buch 
noch viele ergänzende Hinweise für die 
eigene Programmierarbeit finden, denn 
es wird darin nicht nur die Wirkung der 
BASIC-Befehle erläutert, sondern er- 
klärt, wie aus den Befehlen ein nützliches 
Programm entsteht. 


In die Didaktik ist das Buch anders auf- 
gebaut als die meisten sonst bekannnten 
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BASIC-Lehrbücher, bei denen voraus- 
gesetzt wird, daß der Leser einen Com- 
puter vor sich hat, um durch Probieren zu 
lernen. In diesem Buch werden auch die 
Kleinigkeiten, die man beachten muß, Sy- 
stematisch und vollständig in der richti- 
gen Reihenfolge erklärt. 


Leider ist BASIC noch nicht in allen Ein- 
zelheiten genormt; darum werden in den 
Beispielen nur die Befehle verwendet, die 
im wesentlichen einheitlich bei allen 
BASIC-Dialekten zulässig sind. Gering- 
fügige Abweichungen werden ausdrück- 
lich erklärt. 


Die Programmbeispiele selbst sind so 
ausgewählt, daß sie in eigene nützliche 
Programme eingebaut werden können, 
wodurch der Schritt von der bloßen 
Kenntnis der Sprachelemente zum eige- 
nen Programmieren erleichtert werden 
soll. (Aus dem Vorwort.) Die Daten: Hum- 
boldt (ht), 1. Aufl. 1984, 160 S., 

ISBN 3-58166456-9 
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lierte Übersicht aller Basic-Statements 
und Funktionen, ein ausführliches Ver- 
zeichnis der Speicher-Adressierung zu- 
sammen mit einer Erklärung, was jede 
adressierbare Speicherzelle leistet und 
wie sie arbeitet und einen besonderen 
Abschnitt zur fortgeschrittenen Color- 


‚| Grafik und Sprite-Grafik. 


Im Anhang finden sich Speicherbele- 
| gung, 


Einsprungadressen ins Be- 
triebssystem für die Maschinenprogram- 
mierer, Anschlußbelegungen der Steck- 
buchsen, Umrechnungstabellen hexade- 
zimal zu dezimal und zurück, eine aus- 
führliche ASCII-Tabelle und ein alpha- 
betisches Verzeichnis der BASIC- 


| Befehle. 


Die Daten: MC Graw-Hill Bookcompany, 


‚| Hamburg 1984, 388 S. kart., DM 39,80, 
| ISBN 3-89028-016-1 


Heilborn/Teilbott 
Das Anwenderhandhuch 
zum VG-20 


Es vermittelt alles nötige Wissen für den 
Umgang mit dem VC-20 und seinen Zu- 
satzgeräten. Die VC-20-Basic-Program- 
miertechnik und der ganze Bereich der 
Farbgrafik und der Tonerzeugung werden 
genau beschrieben. Darüber hinaus gibt 
das Buch praktische Tips zur Program- 
mierung eigener elektronischer Unter- 
haltungsspiele. 

Es eignet sich sowohl für den Anfänger 
als schnelle Einführung als auch für den 
erfahrenen Anwender als Nachschlage- 
werk. 


Aus dem Inhalt: 

Vorstellung, Bedienung und Programmie- 
rung des VC-20 -Spielsteuerungen — 
Grafiken — Klänge — Peripheriegeräte - 
Systemarchitektur — Speicherbelegung 
— Fehlermeldungen — Basic-Statements 
und -Funktionen. 

Die Daten: McGraw Hill Book Company, 
388 S., DM 32,00, 

ISBN 3-89028-004-8 
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Schreiber/Saller: 
Anwenderprogramme für Ihren VG-20/64 


Computer im Fernsehen 


Liebe Freunde von 
COMPUTE MIT....! 


Alles, was sich im Fernsehen 
mit dem unerschöpflichen 
Thema Homecomputer he- 
schäftigt, nennen wir Ihnen 
jeweils an dieser Stelle, damit 
Sie genau zur rechten Zeit 
Ihren Fernseher einschalten 
können und nichts wesent- 
liches versäumen. Ein toller 
COMPUTE MIT...-Service — 
denn GOMPUTE MIT...-Leser 
wissen Bescheid und können 
mitreden. 


05.10.84 SW3 


Mikroprozessoren- 21.15 h 


Microcomputer Teil I 
3. Computer in der 
Dienstleistung 
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Das Buch zielt darauf ab, die Mög- 
lichkeiten des VC-20 zu demonstrieren 
und anzuwenden. Im wesentlichen wer- 
den Spiele und kommerzielle Anwendun- 
gen programmiert. Die Palette reicht von 
Car-Race bis zur Finanzbuchhaltung. Zu 
jedem Programm gibt es kurze Beschrei- 
bungen, auffallend die gute Lesbarkeit 
der Steuerzeichen in den Listings. Ein 
Buch für den fortgeschrittenen Compu- 
ter-Anwender. Die Daten: Luther-Verlag, 
1984, 135 S., ISBN-3-88707-029-1 


Brückmann: 


27. In Ar 


Der Commodore und der Rest der Welt 


Ein wirklich tolles Buch für alle Bastler 
und Hobbyelektroniker. Hier werden 
technische Anwendungen mit dem C-64 
beschrieben und mit Schaltbildern doku- 
mentiert. Das Spektrum der Anwendun- 
gen reicht von dem Aufbau eines Com- 
puters bis zur Steuerung von Motoren mit 
dem C-64. Dabei wurde der Erläuterung- 


08.10.84 ZDF 
Mikroprozessoren 16.04 h 
3. Computer in der 

Dienstleistung 


15.10.84 ZDF 
Mikroprozessoren 16.04 h 
4. Struktur eines 

Computers 


Süddeutscher 
Rundfunk 


S Ill ab 21. 9. 1984, 
jeweils Freitag 21.15 Uhr 
und Samstag 17.30 Uhr [Wh.) 


SENDEZEITEN: 


Westdeutsches 
Fernsehen 


WODF Ill ab 9. 9. 1984, 
jeweils Sonntag 15.30 Uhr 
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stext ziemlich einfach gehalten, sodaß 
auch ein Laie nicht nur Bahnhof versteht. 
Damit auch alles gleich gesteuert wer- 
den kann, fehlen auch die Softwareli- 
stings nicht. Die Daten: Data Becker, 
1984, 229 S., ISBN 3-89011-015-0 
(sr) 


TV-Ecke 


Bayerischer 
Rundfunk 


BR Ill ab 19. 9. 1984, 
jeweils Mittwoch 16.00 Uhr 
und Freitag 9.00 Uhr IWh.) 


Zweites Deutsches 
Fernsehen 


ZDF ab 24. 9.1984, 
jeweils Montag 16.04 Uhr 
und Samstag 11.15 Uhr (Wh.] 
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Sprachsynthesizer für G-64 


Unterhalten Sie sich mit SAM, einem der 
inzwischen zahllosen Sprachsynthesi- 
zern für den Gommodore 64. 


SAM, das steht für Software Automatic 
Mouth. Dieses Sprachprogramm der 
Firma Don't Ask Software auf Diskette 
ist wohl eines der vielseitigsten auf dem 
Markt. Der Sprachsatz ist quasi un- 
beschränkt, mit richtig gesetzen Para- 
metern kann SAM fast alles in die di- 
gitale Sprache umsetzten. Dabei ist der 
Vorgang ziemlich einfach, ein ”Say”- 
Kommando mit dem entsprechenden 
Wort läßt den SID ansprechen. Geben Sie 


z.B. Say "Hello”, so hören Sie ein digita- 
lisiertes, klar verständliches "Hello” von 
SAM. Mit der Eingabe von englischen 
Wörtern lassen sich ohne viel Parameter 
die meisten Experimente vollziehen. Bei 
deutschen Wörtern wird es schon schwie- 
riger, sehr viel Parameter müssen ge- 
setzt werden. So kann z. B. die Schnellig- 
keit, Tonlage usw. geändert werden. Um 
ein deutlicheres Ergebnis zu bekommen, 
besteht die Möglichkeit hinter Silben Re- 
gisterwerte (1-8) zu setzen. Dies be- 
kommt man durch Ausprobieren schnell 
in den Griff. 

Mit der Option "Reciter” können Band- 


aufzeichnungen in digitale Sprache um- 
gesetzt werden, wobei ca. 11Kbyte 
Speicherplatz für das Programm benötigt 
wird. 
Fazit: 
Ein Programm, das Experimente gera- 
dezu herausfordert. Da kein Sprach- 
schatz vorgegeben ist, läßt sich auch 
keine Leistungsgrenze absehen. Übri- 
gens macht es Spaß, SAM-Unterpro- 
gramme in selbstgestrickte Programme 
einzubauen. 

(sr) 


BASS-Gompiler 


Der neue EXBASIG-GOMPILER von Inter- 
face Age ist ein sehr leistungsfähiges 
Werkzeug zur effizienten Programmie- 
rung: Aber — was ist das eigentlich ein 
Compiler? 


Vereinfacht ausgedrückt, übersetzt ein 
Compiler 

(sprich: Kompeiler) ein in einer Hoch- 
sprache (z.B. BASIC) geschriebenes Pro- 
gramm in einen anderen, vom Computer 
leicht ausführbaren Code. Dies kann 
Maschinen- oder Assembler oder auch ir- 
gend ein anderer Code sein. In jedem Fall 
ist es einer, der vom 'Herz’ des Com- 
puters, dem Mikroprozessor, leichter und 
somit schneller verstanden werden kann 
als die Hochsprache. 


Der EXBASIC-COMPILER erzeugt aus 
Ihrem Standard-Basic- bzw. EXTEN- 
DED-BASIC-Programm 6502-Maschi- 
nencode, der direkt vom Mikroprozessor 
6502 (oder 6510,6509), der in jedem 
Commodore Computer vorhanden ist, 
verarbeitet werden kann. Der Haupt- 
vorteil bei der Benutzung eines Compi- 
lers liegt also darin, daß die compilierten 
Programme wesentlich schneller im Ab- 
lauf sind. 


Der Hauptnachteil sei ohne allerdings 
auch nicht verschwiegen. Der Vorgang 
des compilierens ist äußerst komplex 
und dauert folglich einige Zeit. Dies kann 
zwischen einigen Minuten bis im Ex- 
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tremfall einıgen Stunden liegen. Der 


EXBASIC-COMPILER benötigt ins- 
gesamt 4 Durchläufe durch ein Basic- 
Programm, bevor es komplett in Maschi- 
nencode umgewandelt ist. Andere Com- 
piler sind in dieser Hinsicht weniger 
aktiv, dafür aber zum Teil im Compilier- 
prozeß schneller (nicht im Ablaufl!). 


Interface-Age hat seine Compiler so aus- 
gelegt, daß er fast jedes Basic- 
Programm ohne Änderungen verarbeiten 
kann. Dennoch hat jeder Compiler seine 
Grenzen in dieser Hinsicht, einen, der je- 
des (100%) Basic-Programm problem- 
los compilieren kann, gibt es nicht. Es 
kann Ihnen also passieren, daß gewisse 
Basic-Befehle oder Strukturen nicht ver- 
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arbeitet werden. Da helfen nur noch An- 
derungen an Ihrem Basic-Programm. 
Das Kapitel ’ UNTERSCHIEDE COMPI- 
LER/INTERPRETER', im 40 seitigem 
Handbuch, unterstützt Sie dabei. 


Selbstverständlich ist, daß Sie fundierte 
Basic-Kenntnisse mitbringen müssen, 
um den Compiler in seiner Leistungs- 
fähigkeit ausnutzen zukönnen. Wenn Sie 
hier noch Lücken haben, empfiehlt sich 
die Anschaffung des Buches "BASIC 
KURS BEGINNER’, ISBN 3-88623- 
015-5 das vom gleichen Hersteller er- 
schienen ist. 

Bezugsquelle: Exbasic-Compiler für C- 
64, Interface-Age-Verlag-GmbH in 
München (tm) 
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Das Programm Ist einsetzbar in Verbindung mit dem Commodore 
64, der Floppy VG 1541 und einem Matrix Printer (z.B. dem Gom- 


modore MPS 801). 


Es werden cirka 14 KByte Speicherplatz belegt. 
Nach dem Laden und Starten meldet sich ’Textverarbeitung’ mit 


1. Texteingabe: 
Das Programm fragt ab, ob neuer Text 
eingegeben oder anschon geschriebenen 
Text angehangen werden soll. Hier muß 
nur dann Fi gedrückt werden, wenn der 
Text von Diskette eingeladen wurde und 
nun weitergeschrieben werden soll. 
Wurde die Texteingabe nur unterbrochen, 
so setzt sich das Programm selbst einen 
Merker. Dann wird die Zeilennummer ab- 
gefragt, ab welcher der Text zu speichern 
ist. Beineuem Text sollte eine 1 eingege- 
ben werden, ansonsten die Zeilennum- 
mer (+1) bei welcher der schon ge- 
schriebene Text endet. Nun kann mit der 
Texteingabe begonnen werden. Die 
Cursorsteuertasten funktionieren im Ein- 
gabemodus nicht. Der Cursor kann aber 
mit Hilfe der Inst/Del-Taste zurückge- 
führt werden. Größere Fehler können im 
Unterprogramm "Text ändern’ beseitigt 
werden. Die Eingabe der Anführungs- 
zeichen ist nicht möglich, hier muß das 
hochgestellte Komma verwendet wer- 
den. Für die Texteingabe stehen 100 Zei- 
len mit maximal 70 Zeichen zur Verfü- 
gung. Bei Erreichen des 65. Zeichens, er- 
tönt bei jeder weiteren Eingabe ein 
_ akustisches Signal. Sind 70 Zeichen ein- 
gegeben, wird ein automatischer Zeilen- 
vorschub durchgeführt. Drückt man bei 
Beginn einer neuen Zeile die 'Pfeil nach 
oben’-Taste, gelangt man wieder ins 
Hauptmenue. 


2. Text ändern: 

Das Programm fragt die Zeilennummer 
ab, in welcher der zu ändernde Text 
gespeichert ist. Diese wird dann auf dem 
Bildschirm sichtbar gemacht, und kann 
darunter neu eingegeben werden. Drückt 
man die ’Cursor Right’-Taste, wird der 
alte Text in die neue Zeile kopiert. Be- 
tätigt man die F1-Taste; wird der ge- 
samte Text gelöscht. Gelöschte Zeilen 
können sofort oder später wieder einge- 
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Textverarbeitun 


für den Gommodore 64 


Unterprogrammen: 


fügt werden. Dies muß aber ebenfalls im 
Untermenue Textändern vorgenommen 
werden. Werden 70 Zeichen eingegeben, 
wird keine Zeilenschaltung vorgenom- 
men, sondern das Programm fragt, ob die 
Zeile übernom! en werden soll (z.B. war 
das 70. Zeichen gerade der Schlußpunkt). 
In diesem Falle ist die ’Pfeil nach oben’- 
Taste zu drücken. Hat man die Zeile nicht 
korrekt eingegeben, drückt man Fi und 
gibt die Zeilennummer nochmals an. Der 
Text kann dann neu eingegeben werden. 
Bleiben dann Zeichen aus der vorherigen 
Eingabe stehen, können diese unberück- 
sichtigt bleiben, das Programm "”schnei- 
det” sie ab. 


3. Text löschen: 
Durch Drücken von Fi wird der gesamte 
Text gelöscht. 


stätigt werden. Auch von hieraus kann 
mit der "PnOT’ wieder ins Hauptmenue 
zurückgekehrt werden. So wird wir- 
kungsvoll verhindert, daß ein falscher Ta- 
stendruck den bisher eingegebenen Text 
unwiederbringlich löscht. 


Diskettenmenue: 

1. Text speichern: 

Es wird nach dem Namen des zu 
speichernden Textes gefragt. Nach dem 
Abspeichern kehrt das Programm zum 
Diskettenmenue zurück. Existiert be- 
reits ein File mit dem gleichen Namen, 
wird es überschrieben. Ist man sich also 
über die vorhandenen Files nicht mehr im 
klaren, sollte man vorher die Directory 
lesen. 


2. Text laden: 

Nachdem der Textname abgefragt 
wurde, wird dieser mit Get eingelesen, 
und dem String Te$(zn) zugeordnet. Bei 
längeren Texten dauert dies leider einige 
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dem Hauptmenue. Von hieraus werden die Unterprogramme und 
das Diskettenmenue angewählt. Eine Rückkehr ins Hauptmenue 
von den einzelnen Unterprogrammen Ist durch Eingabe der 'Pfeil 
nach ohen’-Taste möglich. Nun die Erläuterungen zu den einzelnen 


Zeit. Nach dem Einlesen wird das Haupt- 
menue angezeigt. 


3. Textdatei löschen: 
Es wird der Name abgefragt und dann die 
entsprechende Datei gelöscht. 


4. Textdatei umbenennen: 

Es wird der alte und der neue Name abge- 
fragt. Während dem Umschreiben wird 
dies sichtbar gemacht. 


5. Formatieren: 
Es wird Name und Id gefragt. Nach dem 
Formatieren Rückkehr ins Menue. 


6. Directory: 

Die Directory kann eingelesen werden, 
ohne daß das Programm oder der Text 
gelöscht werden. Das Einlesen geht sehr 
rasch, da hierfür ein Unterprogramm in 
Maschinensprache aufgerufen wird. 


7. Hauptmenue: 
Durch Drücken der 7 gelangt man wieder 
ins Hauptmenue zurück. 


Fehlermeldungen: 

Bei sämtlichen Operationen mit dem 
Diskettenlaufwerk wird der Fehlerkanal 
abgefragt. Tritt ein Fehler auf, wird dieser 
angezeigt und das Programm wartet auf 
einen Tastendruck und kehrt dann ins 
Hauptmenue zurück. Die Fehlermeldung 
"Device Not Present’ wird ebenfalls ange- 
zeigt. Der Benutzer wird gebeten, das an- 
gesprochene Gerät einzuschalten und 
eine Taste zu drücken. Nach dem Ta- 
stendruck fährt das Programm mit der 
Arbeit fort. 

Wird bis zum Erreichen der möglichen 
100 Zeilen geschrieben, springt das Pro- 


sonsten können Sie mit diesem Pro- 


gramm so gut wie alles. Geschriebene 
Texte abspeichern, laden, editieren, Text- 
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dateien löschen oder umbenennen. Die 
Directory laden, natürlich, ohne daß das 
im Rechner befindliche Programm oder 
der Text gelöscht wird. 

Haben Sie einen Text abgespeichert 
und wollen sofort einen weiteren einge- 
ben, so genügt ein Tastendruck und der 
alte Text wird gelöscht. 

Ich möchte nun doch nicht alle Mög- 
lichkeiten des Programmes hier in 
diesem Musterbrief niederschrieben, 
diese Angaben können Sie viel besser der 
Programmbeschreibung entnehmen. 


Hartmut Götze 


4. Textausgabe Bildschirm: 

Der gesamte Text wird mit vorange- 
stellter Zeilennummer aufgelistet. Mit 
der "Pfeil nach oben’-Taste kann das Li- 
sten angehalten und wieder gestartet 
werden. Ist das Textende erreicht, wird 
dies angezeigt, und ein erneutes Drücken 
der "Pfeil nach oben’-Taste zeigt wieder 
das Hauptmenue. 


5. Druckerausgabe: 

Das Programm fragt ab, ob der Absender 
mit ausgedruckt werden soll. Dann wird 
abgefragt, ob weitere Daten eingegeben 
werden. Wird die Frage mit ‘Ja’ beant- 
wortet, so fragt das Programm 
folgendes ab: 

a) Anrede (z.B. Firma), 

b) Vorname, 

c) Name, 

d) Straße u. Nr., 

e) PLZ u. Ort, 

f) Datum, 

0) Betreff. 

Dann werden 3 Anredeformen zur Aus- 
wahl gestellt: 

a) Sehr geehrte Damen und Herren, 

b) Sehr geehrte Frau, 

c) Sehr geehrter Herr. 

Trifft hiervon keine zu, kann eine eigene 
eingegeben werden. 

Hinter b und c wird der Name mit aus- 
gedruckt. Bei der eigenen Anrede muß er 
mit eingegeben werden. Hinter Anrede- 
form einer gewählten oder der eigenen, 
wird ein Komma gedruckt. Der erste Satz 
sollte also kleingeschrieben beginnen. 
Dann wird abgefragt, ob ein Schlußwort 
ausgedruckt werden soll. Beantwortet 
man die Frage mit ’Ja’, werden 4 Formen 
zur Auswahl angeboten: 

a) mit freundlichen Grüßen:, 

b) Mit freundlichen Grüßen:, 

c) Hochachtungsvoll:, 

d) Gezeichnet:.. 

Trifft keines zu, kann wieder eine eigene 
Eingabe gemacht werden. Hinter jedes 
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Schlußwort, gleich ob gewählt oder ein- 
gegeben, wird ein Doppelpunkt gesetzt. 
Nach dem Ausdruck fragt das Pro- 
gramm, ob ein weiterer Ausdruck ge- 
wünscht wird. Beantwortet man die 
Frage mit 'Ja’, so wird gefragt, ob Daten 
geändert werden sollen. Bei Beant- 
wortung mit ’Nein’, wird ausgedruckt wie 
vorher. Bei 'Ja’ werden die oben er- 
wähnten Punkte abgefragt. 

Es ist somit möglich, die Adresse oder 
andere Daten ständig zu ändern. Will 
man vorher gemachte Daten beibehalten, 
muß die Abfrage nur mit Return über- 
sprungen werden. Dies ist möglich, da 
alle Stringzuweisungen ihre Werte so- 
langd behalten, bis kein Ausdruck mehr 
gewünscht oder diese neu eingegeben 
werden. Bisher wurde nur gesagt, was 


gramm zum Hauptmenue, der Text kann 
dann noch editiert und abgespeichert 
werden. Die Run/Stop-Taste wurde 
außer Betrieb gesetzt, um ein Abstürzen 
durch versehentliches Drücken der Taste 
zu verhindern. 


Noch ein kleiner Hinweis: 

Auf ein DIN A4 Blatt haben incl. Absen- 
der, Anschrift und Schlußwort cirka 35 
Zeilen Platz. 

Die Benutzung der Anführungszeichen 
ist nicht möglich. Hier muß das hoch- 
gestellte Komma verwendet werden. 
Um das Ende des Textes bei der Bild- 
schirm und Druckerausgabe zu erken- 
nen, setzt sich das Programm bei Been- 
den der Texteingabe einen Merker. Dies 
sind zwei aufeinanderfolgende **. Es 
sollte darum das Multiplikationszeichen 
nicht zweimal hintereinander eingegeben 
werden. 

Da ich glaube, nun alles gesagt zu haben, 
bleibt mir nur noch, Ihnen viel Spaß beim 
Schreiben zu Wünschen. 


Variablenliste: 

DN$: Dateiname 

ND$: Neuer Dateiname 

AD$: Alter Dateiname 

1D$: Id (Formatieren) 

LD$: Datei löschen 

Drucker: 

Folgende Variablen in den Zeilen 30-45 
müssen mit den Daten des Anwenders 
belegt werden. Können natürlich auch 
ohne Belegung bleiben (z.B. Firmentyp 
wenn Privat). 

FT$: Firmentyp 

SE$: Straße und Nummer 

TF$: Telefon 

BZ$: Bankleitzahl 
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KT$: Kontonummer 
V$: Vorname/Name 
P$: Postleitzahl/Ort 
BZ$: Ist belegt 


Folgende Variablen werden im Programm 
abgefragt: 

A$: Anrede bei Adresse 
V1$: Vorname 

N1$: Name 

Sy$: Straße und Nummer 
PI$: Postleitzahl und Ort 
D$: Datum 

BT$: Betreff 

AS$: Gewählte Anrede 
SH$: Gewählter Schluß 


Sonstige: 

ZE$: Obere Maske 

A,BL,BH$: Directory einlesen 
EN,FA,WAS$: Get Abfrage 

das Programm macht, wenn mit 'Ja’ ge- 
antwortet wird. Es dürfte jedem ver- 
ständlich sein, daß der Absender nicht 
ausgedruckt wird, wenn man mit 'Nein’ 
antwortet, gleiches gilt für die Anschrift, 
Datum, Betreff, Anrede und Schlußwort, 
wenn man die Frage nach weiteren Ein- 
gaben verneint. Es ist somit möglich, den 
eingegeben Text ohne weitere Daten 
auszudrucken, oder den ersten Ausdruck 
mit Daten und den zweiten (Kopie ohne). 
Es sind alle Kombinationen möglich. 
Beim Ausdruck ohne weitere Daten gibt 
es zwei Möglichkeiten, wenn ein weiterer 
Ausdruck gewünscht wird. 

Wenn das Programm nach der mit 'Ja’ 
beantworteten Frage nach dem zweiten 
Ausdruck fragt ob Daten geändert wer- 
den sollen, gibt man 'Nein’ ein. Es werden 
dann zwischen dem bereits Ausgedruck- 
ten und dem zweiten Ausdruck, 4 Zeilen- 
schaltungen vorgenommen. Soll aber der 
zweite Ausdruck (es kann sich hierbei 
auch um Text handeln, der neu eingela- 
den wurde, wenn z.B. 100 Zeilen nicht 
ausreichten) sofort an den 1. Ausdruck 
angehangen werden, geht man folgen- 
dermaßen vor. Zweiter Ausdruck JA, Da- 
ten ändern JA (obwohl eigentlich nichts 
zu ändern ist) Absender ausdrucken 
NEIN, weitere Daten eingeben NEIN. Der 
Text wird an den ersten angehangen. 
Wem dies nun alles etwas unverständ- 
lich vorgekommen ist, den möchte ich 
bitten, einen kleinen Text einzugeben und 
die Vielzahl der möglichen Druckersteue- 
rungen auszuprobieren. 


6. Diskettenmenue: 
Wird gesondert erläutert. 


7. Farbwechsel: 
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Mit den Funktionstasten F1, F3 und F5 
können Hintergrund-, Rahmen- und 
Schriftfarbe gewählt werden. Mit F7 ge- 
langt man wieder ins Hauptmenue. 

Die beim Start eingestellte, für manchen 
wohl etwas 'poppige' Kombination von 
rotem Rahmen und Hintergrund mit 
weißer Schrift wurde gewählt, da diese 
einer der besten Kombinationen für Mo- 
nochrome oder mit Grünumschalter be- 
stückte Monitore ist. 


8. Anweisungen: 

Die Anweisungen sollen nur eine Help- 
funktion erfüllen und sind deshalb in 
Kurzform gehalten. Die Punkte Text ein- 
geben, Text ändern, Text einfügen und 
Text löschen sind kurz erläutert. Dies nur, 
damit bei dem anfänglichen Arbeiten die 
Zeitschrift nicht daneben liegen muß. 


9. Programm beenden: 
Das endgültige Programmende muß 
nochmals durch Drücken der Fi be- 


Texteingabe: 

TE$: Text 

NT$: Eingabe 

ZN$: Eingabe Zeilennummer 
ZN: Zeilennummer 


ad Gi.) 


bus= "Barık erbindung 


zes="Hfextverarbeitung 


dinte$( 129) :PokeS4z: 
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A Print:Print" 
Print:Pprint" 
Print:Print" 
5A Print:Pprint" 
Print 
Frint:Pprint" 
s2d Print:Pprint" 
538 Print:Print" 
3 Print: 


I3osubz23dd 
520 wa=swal(lwa$) 
ifwa<Zlorwa>9then438 


6885 Print" 


3. Oktober ’84 


tfg="Tel, 
N bz$="ELz Kan OHM) 


Setwa:!ifwas=""thend3d 


558 on „aacto 588,908, 1540,.13008,1500,4100, 2908, 


ME: Merker 


Weitere: 

HF: Hintergrundfarbe 

RF: Rahmenfarbe 

SF: Schriftfarbe 

DN%: Geräteadresse 

DR%: Gerät EIN/AUS (0/1) 


Programmaufbau: 

25-100: Stringzuweisung, Dimensionie- 
rung, Farbe 

130-580: Hauptmenue und Abfrage 
600-850: Texteingabe 

900-1260: Texteditor 

1300-1460: Bildschirmausgabe 
1500-1590: Textausdruck 
1600-1680: Text löschen 
1700-1770: Text speichern 
1800-1910: Text laden 

2000-2100: Farbwechsel 
2200-2280: Programmabbruch 
2300-2320: Ton 

2400-2775: Eingabe weiterer Daten 
2800-2990: Druck Absender und weite- 
rer Daten 

3000-3790: Anweisungen 
4000-4040: Fehlerkanal abfragen 
4100-4240: Disketten Menue und 
Abfrage 


4300-4355: Datei löschen 


KAREH = KR 
Mirn-Sorta"' 


'Ppoke&4ö, 1:905Ub3300 


nee herren 
-;3 Texteingeben 

zZ ->3 Textaendern 

3:3 ->3 Textloeschen 

= -:3 Textau=33bz Bildschirm 
'rrint" 3 -73 Textausgabe Drucker 

= --4 Diskettenmerue 

= ->4 Farkwechsel 

2: ->3 Anweisungen 
Print" © ->3 Prosaramm Beenden 
448 Print:Print:print:Frinttabf15>"Ihre Wahl 


Sosub2398:Pprintchrs(147);ze$ 

Text weiterschreiben Fl sonst #1" 
Setuat:ifwat=""thensid 
ifwa$=chr$( 133) thenfori=1toldß: ifteslzun)=" 48" thentbeslzude"" next: 
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"ikt$="Kto.Nr. 


23220, 2249 


4400-4490: Datei umbenennen 
4500-4570: Disk formatieren 
4600-4690: Directory listen 
5000-5120: Überprüfen ob Gerät EIN/ 
AUS 

5140: Fehlerkanal löschen 

5200-5270: Maschinendatas für Direct. 
u. Überprüfung EIN/AUS. 

5300-5340: Copyright 

5360-5370: Rücksetzen der Stringzu- 
weisung 


Ich möchte diesen Mustertext dazu be- 
nutzen, Ihnen, liebe Leser, viel Spaß mit 
diesem einfachen Textverarbeitungspro- 
gramm zu wünschen. Es war mir schon 
lange ein Dorn im Auge, daß es zwar eine 
Vielzahl von veröffentlichten Textverar- 
beitungsprogrammen gibt, welche aber 
immer auf Schönschreibdrucker abge- 
stimmt sind. 

Was, so frage ich, nützt der schönste 
Zeichensatz mit deutschen Umlauten, 
wenn mein Printer sie nicht ausdrucken 
kann. Was nutzt es, wenn der Text in ver- 
schiedenen Schriftgrößen ausgedruckt 
werden kann, mein Printer kann es 
nicht. 

Dieser kennt nur die Standard- und die 
Fettschrift. Das muß also reichen. An- 


KAHHAR KUN" 


300638 


31 


32 


We MDicu 
N N DENE EN) 


NNWYNICHCH 


rd 


Bel ban 
518 
@15 
528 
ae] 
548 


HENBREGENERENENENER 


DIODDANMMIRÜTIT 


ZDNet 
IMAREBLD 


= 
MR 


STERNEN EAEM UND mMTmELn 
1 


ver 


— 


Jmemrrmmmmr japan 


min cn 
m 


I 
zZ 13 


nm ı 
ENT 


RD 


ES sc Er DE BE SE 


Dei] 
WE Hr 


— 
na! 


Dub dm da m de m m a en a a 1 


) | > 
u al I AST 


Sotosla 
input" Ak welcher Zeilenrummer -> Tamm" ; zn: ifze$=chr $(934 )thern130 
zreintivallznsy) :ifznZlorzn>99thenkrint "MM" !Iotos3d 


tetlme)="" 
Print 
Printzu;": "; 
32=0 

Set za$ 


Printchr&{1555 :chr$(1575; 

ifesf=""therßsd 

EEE SEI SRESSSCHRET Tara y> =chr $2 145) thenssa 
e3+=chr$l 157 Jarestschr$(19)ores$schr$134)thenged 

re 

if lenlteflen) <lthensöh 

Print" ";chr&(1575; 

Printchr&(15755" "Schr&(1573; 

test zu’=left$lte$len)d, lenlteflizu,:-1) 

Sat.asse 

if ea$<>chr$(94hthen?78 

if lenlte$lzeu)s<itherd3d 

Icotassd 

if az=söthenteflan)=""!az=1 

Frint" ";chr$(157)5e3$; 

if e2$=chr&(15)thenzn=zn+1!antosi1 

tetlon!steflzn)teät 

if lenlte&lzenv)ssd theraämzukzsad 

iflen (teflzn) )=7Athenessschr$(13) : zu=zn+1 

if zu=1AAthen3A 

ifes3f=chr$(13:thenssß 

Sutasesd 

Print" ";chr#(157%; 

tetlzud="£8"  meszn 

SDSUDZSAN! 3ct5138 


Snzubz3ag: printchr&c1475:Poke211,0:Pake214,24:34935387232 

Print" @Fl#FLo=sschen Wusor Risht3ehlten Text Einf. "schr#i1l3h,ze$ 
input" Helche Zeilernrnommer -% anal"; zu 

ifr=1thenchr #135 

if zufechr #94 )then139 
zn=eintlwallan#3 2: ifznlorzn>99thenprint" Men" :aoto91o 

Frint 

FPrintzu;s": "; 

Frintkeflzn) 


Ä 


Print 
Printziy": % 
ntg="" 
Jete3$ 

FPrintchr #2 185°; chr#X157 5; 

ifestechr&i 1 Pores$schr&{ 1 Paoreasschr$l145)orestschr$l 137 )orea$= chr$(34)the 

ze at Fe 

Printehrst ir); "sch #157; 

nt$=leftF(nt£, lenlnt$b-1) 

soto: 3a 

if Ba zchr&629theni 11H 


„ıelenlbkeflz zn althenegssmidsiteflen), lencent$5+1,15:90t01158 


: Fr#l94tken11S0 
if lenönt&#sllthen]3E 


De Ankos) 

if az=dthennt$="":3z=1l 
Frint" "chr#{ 137 5e3#; 
if e9t=chr#£(132thenlz2öd 


nt$ent$teg$ 

if lenfnt&:ss4thenaozubz3df 
if lenint$)=7äthen: Setalzza 

Zakın3 2] 

if lenentsi£ lthenntFetetlznd:Pprintent 
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1218 
1220 


1230 


1235 


1244 
1245 


tetlzn’=ent$ 

90305623288: 3ot.0948 
FPrint:Frint"@ Maximal 7A Zeichen 4" 
Frint:Print"@ Wenn Heue Zeile OK 1 Drvecken " - 
Print" Wenn nochmals Rendern Fi Drvecken 9" 
Setyas:ifuaf=""then1245 


esa ifwasschr$( 34 thenteglzn!e""te£landstehlzndtnt$: 9oto3ad 
1253 ifwaFschr (133 2thenprint "I" 906091 

1250 acoto1245 

1278 : 

1234 : 

1340 Sozukz39d:Prinkchr&li47) 

12310 zu=1 

1320 ifleft#ltetlznd., 2)="##"then1369 

1334 Printzn;": "; 

1349 Frintteslzu) 

1359 Sozuk1420 

1359 zn=zn+1l:!ifzn=1BAthen1354 

13720 9021320 

1358 Print 

1320 Printtab(5>"-> 3 DER TE#T IST ZU EHIDE 9 Z-" 
14&M Beteat:ifegt=""theni4on 

1455 ifes$=chr&(94)then139 

1415 Sotaldad 

1428 Sete3 

143 ifea$<Hchr (94 )thenreturn 

1449 Seteat 

1459 ifeatt>chr#(94)thenildg4f 

1450 Sczubz2Adireturn 

1478 : 

1458 : 

1549 90204623609: 3o2ubZ4AR: dnz=d ! aosukSahe 

1365 dns=4: 90zub5AHB 

1395 Frintchr$(147); ze#:Pprint:Printtabl5>"-> Wext wird Aussedrucktäa <-" 
1212 opend.4,7 


1515 
1324 
1523 
1329 
15335 
1545 
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zru=1 

ifleft$lteflznd., 2)="##"then1545 
Print#4,chr$( 163" 03" te&lzn) 

zr=zr#+1 

ifzn=1fdthen1545 

3cato19208 

ife=s1thensozuk2370: closed: 90zub1350: moto 130 
ao=ub2388:Pprintchr&{14?; zeF'Print 

; Printtab(3): input "Noch ein Auzdruck "ua 

E J"andua3a "a" thenprint "Mg" : 3.915990 
ifwagz"n"thenclosed: Schal 


4 verden" was 

133 nr andwagen n"thenprint "Mg" :Goto 1375 
ag="n"thenclosed: sot“2504 

ifwag=" "there lozedt: antrat 


Snzukzzag:Printchr&i14rdizet:print 
Frinttabl 3) "STE#TLOESCHEN" 

Frint:Printtab(3"Den im Speicher befindliche Test ":Print 
Frinttab(3> "durch Druecken wor Fi Loeschen. ":Pprint 
Frint:Frinttabl 3>2'"3 Eei Irrtum T i 
Setwat:ifuag=""thenl623 
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next :print:printtabt 1S%"FERTIG" Forisötoräginext 
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any ae ifdrasltbenaozubsidi 

NIEEE 

input dk: ifensschr$(a4)thendlag j 
openi 8, 2, cnd# sur" ;9osub4BoR: forzn=itolad 

1259 Set#l,e3$ 

270 teizstettest 
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3 itea$=chr&(13>ore3t=""then13ad 
1336 
1229 RN "eleft£iheflzn:. lenlteflznd-l} 


1719 vet : zu, a3 a1 


Sau Printchrei 147 zeH 


Frint’Frint:Print" Wr’ -}3 Menue 
wetfas: iffag=""then26053 
T 3 .henhf=hf+1:PpiaokeS ifhf>ilg4thenhf=-1 
Es 134) thenrf= rf+l:Poke2: sr 2% ifrf14tbentf=ml 


EI 
#19 Prink:prink'print" Wi ->8 Hintererundfarbe 
32a Print:print:print" WS ->8 Rahmenfarbe 
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A 


mat 


u 


-1 
Eothenazsubz338: 904129 


Papa parpı span palm 
DD i 


iffat= 
PUHSE FE 


Zazub22A8:Printichr&l1l4?hizeHt:print 
Print:print"Bitte Bestastigen sie den End@uelti‘ 
Frint:print"Proarammabruch Sdreh Druscken won F 
Frink:Printtalb "A Eei Irrtum 7 Druscken 8" 
setuastifuate""thenz24d 
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31=54272 :pokezi+5, 22: pokezi+6. 15#165Fokesir2d,15 
Pokesi,5@2'Frokesit1,133:Poke=sit4.33 
fora=1ts189:mext'Pokezird. @’return 


2408 Sozub2200: Frintchr$c14 d; ze 

2495 print:print"Soll der Absender Ausgedruckt werden? "Print 
2418 Frint"@ Fei Irrtum 7 Druecken" 

2415 3et en$:ifen$=""thenz41S 

2429 ifentl>chr&l74banden&i>chr &(FE)anden&Z>chr&94)thenz2415 
2425 ifenf="t"theni3d 


gan ifent=" j"thernna=sß:achoz445 
Fe] 


2435 ifenf="n"thermasl:ant 402445 
2448 gab 2415 
2445 303ub23B@:Frintchr&tid/s:zet 
2458 print!prrint"Mosechten Sie weitere Daten Eingeben 7 "print 
2455 Set enF!ifen$=""then24593 
2459 ifen$lschr &( 7) anden$l>chr£(73bthen2433 
2485 ifenf=" j"thenie2:aoto243 
2479 ifenke"n"andnas1lands=@then1503 
2472 ife ns="n"andj=eor = Athenzsää 
2475 90.024399 
2436 Printing FETURH WMEHH KEIHE EINGABE "Print 


2455 input" Anrede "33 

2432 input" Yorname "YlE 

2435 inPput"Hame "srl 

zsga inpuk"Strasse u.Hr. ":51$ 
2518 infut"Plz Ort ";pi# 

2515 Frint 

zs2Aa Prink:inkut"Datum "id 


Frinttabe52"@ TEST LADEN ":prink:printbakl9>"Textname 2 


Tamm"; 


35>thenzf=zf+l'poketd4ß.sf: Print "SEREEREERERRERREE Chr iftfarbe" 


3. Oktober "84 


Ira Palma a Paola ranafang 


— 
Du 


Da { 
GADADLnD 


ı mt. 


zaGE 
2234 
2392 
2335 
Sea 
So1E 
eis eis] 
E24 
za} 
sasd 
Sasa 
Sara 
3asa 
elslels] 
198 
118 
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Print:infut"Betreff ";Et£:!iflenchts)r>äthenbtf="Betreff: 
Snzuk2zad: Frintchr&i 14 ss zet:Pprint 
Frint"Maehlen run Jie Anrede aus 


"print 


Frint" 31 ->3 Sehr Seehrte Damen vwnd Herren. ":Print 
Frint" RZ ->9 Sehr meehrte Frau us erint 
Frint" 23 ->39 Sehr SWeehiter Herr "print 
Frirt" © ->9 Eigene Einseben 

et ua: ifwaFe""Lhen2Sei 

yazywal ua}: itfuaallorwardthenz29sf 

ana got 2630, 2540, 26550.2550 


antaz 
Frint:Frint"Hamen 
Print:input"Ihre 


wird andeh. 
"ankozsre 


selber eingeben. Komma 
Einaabe -Z"5a=sF'aste3astt", 


as$="Sehr Seehrte Damen und Herren, ":93oto26sr7e 
as$="Sehr seehrte Frau "+nl&+r",":gotozerl 
nn. Seehrter Here "+nl$+"," 9otozere 
{m} zaa: print: En: schlusswart Eingeben 
et. ifssch"i "ands er n"thenzsad 


= 


4'thene=1l: 
if: $="n"thene=g: 
Saat.azssi 
Frintchr&(l4r ds ze£iprint'rrint" © 0-58 mit PREUDEILICHEN 
Frint'rrint" 32 -74 Mit freundlichen Grus: 
Frint:Frint" 93 ->4 Hochachtungeswoll: 
FPrint:rrint" = ->3 Gezeichnet: 
Frint:Frrint" 8 a Eisene Eingeben 
war'ifuasl"] 
wamyaleuas): Oil, 
ats 
Frint:Frint" Dorfelrunkt 
Prist:inkut" Ihre Eingabe 
zhf=e"mit freundlichen Grmus 
zht="Mit freundlichen Grwe: 
=h#="Huchachtungesall:"9cotazsl 
sht= Gezeichnet:"aotazzad 


Soto2end 


Grus 


w 


om mn 


ren 


Ja ea 15 


ifna=ithe ezsa 
-> STE#T HIEN AUSGEDRUCKT 
ychr&l la)" Ss"pg 


Anzad: Zap entf, 
re Frint:printtab(59"- 
Frint#4,chr fo 1dochr FILES" O3" Wchr 19 
Frint#4,chr&(16&5"539"se$ 
Frint#4,chr&l le) "O3" FrEchr Fl lEN "TIEF 
Frint#g4.chr {13 >chr&{ EN" SI" Er 
Frint#4.chr fl JE" SS" br 

Frintc#g4,chr &(1EI"SE' Et 
Frint#4,chr$Xl132chr &X 189 "35" JE 

if jeFthenantozaan 

fori=lto 4:Pprint#4,chr #613: 
-loze4:30t01510 
Frint#4,chr #(13:chr£X132 
FPrint#4,chr (16) "63" 
Frint#4,chr&l Io) "EZ" LE" 
Frint#4,chr#llE>"03"21$ 
Frint#4,chr #&(13>chr&{167 "O3" P1$ 
FPrint#4, chr#$(13Jchr&t{13>chr£l13 ZEN 
Frint#4, chr&i13>chr X 133chr #18" 
E10 4:906.51518 


nesti 


"nlE 


Se se 3 
kr#@13h 


Ei 


1& 3 
zz 


%% 
u: 


4 


Printädchrsi 13>chr&( 13 >chr #183 "03" Eh! Print#4.chr #X lEI " OF" VE 
return 


Sosub23AR: Frintchr£{ld 5; ze£iprint 
Frint" SHELF bei:":!print 


Frint:Frint" 91 ->8 Texteindgabe 
FPrint:Frint" 92-583 Texteinfueden 
Frint!Frint" 93-78 Textaendern 
Frint:Frrint" 94 ->3 Te: een, 


Frint:Print:Frinttab(15> "Ihre Mahl" 
getrwaf:ifuas=""then3oro 
wa=zyallwa} 


ifwa<llorwardthen3ärö 
era Sctho 3128, 3220,34189,3538 


Icto2cr7d 


Compube mik 


in 


"+bt$ 


En: 


a <-" 


35 


36 


23162388 :Printchr$(14r di; zef:print 

Frint" 9 Texteingabe: 3" 

Frint:print" Es stehen ihnen 99 Zeilen mit maximal 
Frint" 7A Zeichen zur Yerfuesundg,. Heuer Text 
Frint" sollte darum immer mit Zeilernnummer 1 
Frint" kbestirnnen.Fehler koennen wie Sewahnt 

Frint" mit der Inzst“Del Taste zofort Korri- 
Frint" siert werden. 


I Frint" Moschten Sie die Einsake beenden 


2420 
=430 
3442 
2452 
3458 
24 
242g 
24a 


4938 
at 
43568 
Elalzis 
4146 


Frint" “eben sie als erstes Zeichen in einer 
Frint" newer Zeile 1° ein und sie Selansen 
Frint" wieder inz Hauktmenus. 

Print" Tonsignal beginnt bei Anbruch der 
Frint" letzten fuenf Zeichen. Automatisches 
Frint" Return bei Zeilenende. 
acot23728 
Iozukbz22af:printahr$l1l4dize:print 
Frink" Wexteinfuessgen: 4 
Frinkt:print" Washlen sie Punkt 2 Text: 
Frint" Text. kann nur dann Einsefueat u 
Frint" wern eine Zeile 9elcescht wird oder 

Frint" sich zuichen den Zeilen noch eine 

Frint" befindet die vorher mit Return veber- 
Frint" sPrundgen wurde, 

Frink" Geben sie die Hummer der noch freien 
Print" oder vorher Selmeschten Zeile ein 

Frint" Einsaben im Modus £Z Textaendern vor- 
print" nehmen und mit Return abschliessen. 

ars 

= Sub2aaR: Fristchr$(l 142; ze£:Pprint 

Frint" 9 Textaender: 9":print 

Frint:Pprint" Geben sie im Proasrammmodus zwei die 
Frint" Hummer der Zeile an welche Gesaendert 
Frint" werden soll.Die Zeile wird auf dem 

Frint" Bildschirm ausgegeben und kann darum? 
Print" ter neu eingegeben werden. 

Frist" Druscken sie die Cusortaste rechts 

Frint" sa wird der alte sich an der en 


1ut 


Frint" stelle kefirndgende Text in die Neue 
Frint" Zeile webernontmen ‚Iryecken sie Fl 
Frint" zo wird Jie Sezamte Zeile Seloescht, 
Frint" Hurden 78 zeichen A ua ist eine 
Frint" nn : Einsabe nicht mehr moeglich, 


Frint" Zeile 29 Wekserruänneern, Druscken zie 
Frint" “Fi” kann die Zeile Heu eingeneber 


Frint" Druecken Sie un 17 25 wird die 
3, 


Frivk" yemder. 


m——, 


= 
ini 


Aut. Pi 
Sczukbzzad:Frinkcher {ld lizef:print 

Frint" Wextloeschen: 8':Print 

Frint" Einzelne Un kaeimen Gelaezzcht 
Frint" werden indem Sie Furkt & Textaendern 
Frint" Hashlen. 
Frint" Geben zie Jie Hummer der Zei 

Frint" a0elı en zie Le hen moechten. Henn 
Frint" diese Angezeiäat wird Druscken sie 
Frint" F1%,5cll die Zeile Heu Yeschrieben 
Frint" werden zo ebenfalls im Modus 2, nicht 
Frinte" im Froarammbeil 1. 


Frint" allen zie den sesamten Text Loeschen 
Frint" > und Drwacken Fl. 
Frink" zur AR se lsesicht nd sie 

ct Zekoztın 


Frint" 


InPut#I, m. KE,4H3Z :ifw=öthenreturn 
Frist:print:Frrinttabe Sb, sc$ : 
Frint:rrint:Frinttakl 125 
zlaze 1 


3ozubzzad-Printchr&{ilgrfsszet:frint 


Compute mib 
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4118 Frint'print" W1 -574 Text speichern 

4120 Frink:Frint" 92-78 Text Laden 

41a Print:Frint" 92 -5A Testdatei Loeschen 

414g Frint'errint" 94 ->a Datei unmbennenen 
Pinkiprint" 95-4 Diskette Formatieren 
Minkiprint" 6-39 Directory Lesen 
Hint:print" W774 Hauktmerue 


rinkiprmink:printtabl152" Ihre Mahl 


set. az: ifuag=""thendzoda 
| 2.49 or wach 


5 ZZ An =B anzubSAa: ifdrs=lthenaneukaside 

Ss Frintchr$t147; ze# 

A Frinttab(3>"9 TE#T LOESCHEN ":Print:rrint 

A Frinttabl3h:input"Textname 5 TIER"; LE: if ldFechr# (94 )thend180 
A de": "+lcE 

Frink:printtabl3:lgf" wird gelcescht " 

open 1,8. 15:Print#1l.dn#:closel 

zu J}aäg: Satad 1 [sts] 


e- 

MUEEEN 
zZ 
zu 


In EP 


RL nn 


DER ze) 


DEE a BER 


Gen EZ ng=E anzubSAA ii fdraslthenaeeubatte 
Frintchrt 14»; zeF 
Frinttaki 32" S0ATEI UMBEHEHHEH "print 
A printtabl3h"Alter Dateiname -> TB: 
A infor ad&:ifadf=echr&lQ24)thendläd 
A Frint:printtabl3" Heuer Dateiname"; 
A inet na 
4455 dnfe"'ri: "He" =" HacH 
44a Frint!printtabl 32" Wade" de > Wind 
4420 openl,3,19:Print#l.dn&iclosel:nzub4dge 
4429 Sata li 


It 
az N NZ 


Dr ER 


De „ DR "7 


4A Bosub22atdn 
4545 Frivte hi 1472; 

gl Frinttab(3>"® LDisket te Formatieren ":Print 

gaza inriuk" klelizhuen Ham 2 RR" nF iendFechr&(94)thend 12a 
4530 Print:input" kels er "n -> ichHifidHl >" "khenidte","+idt 
ala dntendt+tid&!printiprinktab(3:2"® Diskette eingelest 7" 

gsSa Frint:frintktaktläh"-: 2 Iruecken ©" 

45E npenl,2, 15, "ni "Hanf izlozel ’anzuktac 

Siokıaod 12 


2 gmzub5Aa ii drk=lthengoseunbaide 


Zi 5 


u 


He 
az 


ER 


md 
r KR 
= 


gmz.ukı, 


anzu bSAaa iFdrkelthenigeub5lta 


TTRECTORT LESEH IE 
nz 5 at iset#2, JE, E23 

43,38, ‚48; ‚blE, kıh# 
Zazub453a at 
bhf=skbhf+chr li) 
hritasccblF3 


ER 
ur Ei ER E) 
u m nı .... 
= 
7 d 
pen 
= 
-- 
u 


he 


i 
D 
D 


I In 
= 
a5 


ERRUGT:) 
printtabt73"- >» 3 TASTE 3 S-"!Foke133,8:wait19d, 1:return 


Dez 


2, cdnntss243152 ifFeek (öheßthenderaelireturn 


Zr un ENTER] n 


X Pie 
m, 
De 


Saat prinkchr&(147 3; ze$:!Frint' Print 
$="DRELCEER" 

J: & xu$="FLOPPY " 
For 
Printtabid)"n ad u Le de S- "ora=ibadiinesta! 
Frinttabid) "ao u" Le ko oo " 
vexti 
San Frintiprintirrintbiprinbiprinttabil4b "W Geraet Bitte Einschalten 1100" 


GONE. 


3. Oktober "84 Compuhe eniß 


37 


ZmD 


PRRSLSESB NANBAND 


nm 


Allan 


a 
— 
iz 


ut 


bir] " 


ABEni aM wii! 
fori=421S2tme 
153,1, 


kr 
at 


a Print: 
ö Fa“ i =filt. Da 


ing" 
J=2: 224.120 


13= zii: 


Frint:Frrinttabe4) "9 


'e1$= um: 


Taste Iruescken wern OH 


'. liretkurn 


aa zu Prinkchr&ilgdrschr£lidiieet 
la Frink:Print:Print’rrinttabl 13" COFFRIGHT 1934" 
= Frink:erinttabl 13" bes" 
Frint Print :Frinttabl 132 "HARTMUT GOETZE" 
SSR neck rmekurn 


af= nm x F 1F= nu & bt.F=" " & 33+=" „n ; 


Idg=""igpgann 


JOYSTIGK-GRAFIK 


für den VG-20 + 16 K 


Das Programm ist menuegesteuert, und 
nach dem Einladen erscheint zuerst 
das Menue. 


Zeichnen 

Es erscheint eine kurze Beschreibung. 
FI = Das Programm kehrt zum Menue 
zurück. 

Das Gezeichnete ist damit nicht verloren; 
es kann jederzeit durch Wiederholen’ zu- 
rückgerufen werden. 

F3+F5 = Mit diesen beiden Funktion- 
stasten ist es möglich, eine Zeichen- 
routine zu erstellen und diese später an 
jeder beliebigen Stelle des Bildschirms 
abzurufen. 

F3 = Drücken, gewünschte Routine 
zeichnen, wiederum F3 drücken. 

An jeder beliebigen Stelle mit F5 abrufen. 
Die Routine verschwindet bei Erstellung 
einer neuen oder bei Programmunter- 
brechung, nicht aber bei Rückkehr zum 
Menue. 

Restore = Hardcopy - nach Drücken der 
Restore-Taste ertönt ein Ton und der 
Computer erwartet das Drücken der Ta- 
ste 1 bzw. der Taste 2. Die Tasten be- 
deuten: 1 $ Ausdruck normal- 2 = Aus- 
druck 4-fach vergrößert. 

Danach ertönt noch ein Ton. Mit drücken 


38 


der Taste 9 wird im RVS ON MODUS 
ausgedruckt. 0 = RVS OFF. 

Das Hardcopyprogramm kann in allen 
Phasen des Grafik-Prog. aufgerufen wer- 
den (Vorsicht). 

1+2 = Mit diesen Tasten kann die Ge- 
schwindigkeit des Cursors variiert wer- 
den. Um schwierige Figuren zu malen, ist 
es erforderlich, eine langsame Geschwin- 
digkeit zu wählen, da eine größere 
Genauigkeit so erzielt werden kann. Die 
Tasten sind nur bei Stillstand des 
Cursors zu betätigen. 


Gezeichnet wird mit dem Joystick. Dabei 
ist unbedingt zu beachten, daß der Rand 
rechts und links (durch Striche markiert) 
nicht überschritten wird- sonst ist es mög- 
lich, daß das Maschinenprogramm ver- 
sehentlich gelöscht wird. 

Der Feuerknopf dient zum An- und Aus- 
schalten der Zeichenfarbe. Auf diese Ein- 
stellung ist beim Aufrufen einer Routine 
zu achten. Wichtig: Soll eine Linie ge- 
löscht werden, so ist sie einfach mit dem 
'ausgeschaltetem Punkt’ nachzuziehen. 
Das Programm fragt zu einem be- 
Stimmten Zeitpunkt die Zeichen- und 
Bildschirmfarbe ab. Dazu ist die Farbta- 
belle aus dem Handbuch heranzuziehen; 


Compute mi 


bei der Zeichenfarbe gelten die auf den 
Tasten stehenden Zahlen vermindert um 
eins. Das Programm baut den Bildschirm 
um, und der Spaß kann beginnen. 


Wiederholen 

Die Zeichen- und Bildschirmfarbe ist, wie 
oben beschrieben, festzulegen; daraufhin 
erscheint das eben Gezeichnete wieder, 
und ebenfalls wieder der Cursor in der 
oberen Hälfte des Bildschirms, so daß 
weitergezeichnet werden kann (so ist es 
auch möglich, eine Zeichnung in beliebi- 
gen Farbkombinationen zu betrachten 
und zu ändern). Der Bildschirminhalt 
geht auch bei Programmunterbrechung 
nicht verloren. Es kann einfach mit Run 
wieder gestartet werden, und das Ge- 
zeichnete erscheint nach dem Menue 
durch Druck auf die 2 wieder. Drücktman 
in so einem Fall den Menue-Punkt zeich- 
nen, geht der alte Bildschirminhalt je- 
doch verloren. 


Bild einspielen 

Bei Druck auf die Taste 3 kann ein auf 
Band gespeichertes Bild in den Computer 
geladen werden (Ein vorher abge- 
speichertes Bild läßt sich also nach Wo- 
chen und Monaten noch vervollständi- 
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gen, wenn man will). schirm gezeichnet.) Leider dauert das Laden und Speichern 


Bild wird Stück für Stück auf den Bild- | 3. Press Record and Play on Tape 


JOYSTICE-GEAFIE 1 


4 REM: YORPRÖGRAMM 


a a 


u 
1. 


I 


Go 


EA NA AN 


“ ; 
Eu) 


a Pre N IN LM dr Pl En 


ap ta pa PO fe N 
Ä 


Ti 
A 
ar 


I Dr) 


DE ET] 


—— 


(EAN ENT EEE EN] 


w 
at 


TEN 


Eur ET ER ZE 


I 


anininıncminı 


Band auf entsprechende Position | Bild aufnehmen = der Dateien von bzw. auf Band sehr lange 
bringen Natürlich kann ein soeben gezeichnetes | (134 Umdrehungen des Counters). Die 
2. Farbkombination wählen Bild auch auf Band abgespeichert | entsprechenden Routinen können jedoch 
3. Play on Tape drücken werden. sehr einfach durch Änderung der Geräte- 

1. Band auf leere Bandstelle spulen nummer für ein Diskettenlaufwerk um- 
(Der Bildschirm wird umgebaut, und das | 2. Die 4 drücken geschrieben werden. 


5SITIESE 

REM: HARIICOFT-FROG. 

IFPEEK (E45) =3ATHENSA 

FOKE1GZ4,35: IFPEEEX1AZ24 5 =35STHEHA=4:GOTO1OG 
A=SFEEHSEI-2: IFPEEKLSS> THEHÄ=SA-1 

FÜKESE. A: POKESE. A: FORESS, 8: POKES1.9:G0TO1@G 
IFPEEK (SE)=<1ETHENSR 


2 =aT0499: READD:C=G+I: POKEB+#.D:HEAT 
IFCZ>4 3527 THENPRINT"TFEHLER": EHI 
POKEB+E A: POKEB+18, 1} POKEB+130,A 
FOEEE+1E4, A+r1:POKEB+169, A: POKER+40%, A 
STSE 
DATAIES.11.141,24,3,1659,4,141, 25,2 
DATH2S,72:.128: 2,152, 72.32. 44,4,76 
DATALPS, 254, 169.15, 141,14, 144, 169, 176.141 
DATAIZ. 144, 175,183 ‚136, 202,25 2,22 2,2095, 254 
TATAisz, 14, 144,36, 216, 160,0, 162.17,1%1 
DATAS. 148,0, 72, 202,15,2 ‚173,5,144 
DATR1?0,41,7. 18, 10.18.138, 5.125,41 
DATAS.205,1,.95.102,8,173.2,144,168 
DATA, ‚127,13 3,2,158 ‚dl; 128,248, 1,565 
4 DATAI2S, 1, 112,144, 2 2.9,8,74,132,17 
3 DATHISS. 41,122, 289,1,56,192.17,172.3 
IATAid4,41, 127,5 22,12.249:1,19, 18 
DATR1H,19. er ‚19,.169,128,133, 2,32: 22 
DATAg,32.1 9,259, 165, 127,20 ,56.249,25 
DATAZEL, 5,240, 31,291.15.248, 14,261,62 
DATAzE? =.169,173.141,24,3,169, 254, 141 


za 


Die 


Gamma 


En 


38 NATH2S. 2, 78.2 3,5, 22,12.32, 22.4 
26 DATA=Z.159. 235.169: 1397, 201,4,249, 4, 201 
IATAEA. 28€, 243,133, 11, 24.169, 4,170. 1e2 
DATAZSS, 32.106, 299. 169.0.123,198,22,189 
IATA2SS. 32,192,259, 162, 4.22,201,255,176 
ee ae 13.32,218 520 DATFG,132,1,162,13,32,219.259,165,13 
DATAZSS eu lm: 3.132,7,.189:3:. 121,0 sa DATAZ4B. 14, 163.14. 208, 6,169.4,122, 14 
DATA132.5.197: 1m, 144.4.163, 9.249,92 eig DATA2ZBS. 220. 1E29.0.122.14,24,165.0, 165 
DATAIEE. 12. 242.1,74,74,74.74,133,6 E1d DATA?.122.0.169.5,127, 10.144, 203.169 
DATA1E2,9,1232,15.123.165.162.8. 70,7 geia DATA1S. 22.210.255, 169, 13.22, 218, 239.32 
TATA144,2.24,191,6:196,1902,15,202,2082 «2a DATA204.255.163.4.32,195,2 255 Ss ‚a, 124 
DATA243.24:181.17.133,16.24,165,1,1@1 €4@ DATA12S. 104. 149,0,232,224. 18,48 248.96 
DATH15,132.15:13%©.1681.16,133,15.161,159 650 FETUFH 
DATA132,19. 124.16, 24, 169,3.191.12,168  €&68 POKEIES7I. 25 
IATA123, 70.5:.195.6.19.39,16, 136,298 e7a0 PRINT" MEN YIC-JOTSTICE-GRAFIE" 
IATA24E. 164, 12,208, 1,74.74,74,74,74 E32 FEIHT' ERBE EI" 
DATA181:15.123: 19.1 a 191; en 156 625 FRINT"Me J. M. HEISE" 
IATA1S1.15. 24,26,2,246 25,182 755 FRIHT"BBRBBBI — AHD" 
IATAZ29.3.169.6,196.3, 176,98, 134,3 F18 PRIHT"M H. AHFENSFELD" 
DATA1EI,4. 126.12. 240. 22, 24.169. 4,101 728 PRINT"MMEITTE HARTEN .„" 
DAINM14, 174.70,.4,2.106.40, 106. 202.203 r=a FRINT"DAS HALPTFROGEAMM" 
ATA &.14,208,3, 79,4, 106, 162,4 74a FRINT"MIRD EINGELADEN." 
‚2a2,2:73,299,56:.1965,133,4 759 GOSUE4I. Te 

A,252, 166,12, 240,9, 169, 4,32 read IFFEEHi443=1STHENFORE44 24 FOKESTEOG. © 
IATA21, 259, 70, 2:178, 3, 76, 221,4. 102 778 FÜKES2L.12L:FOREISS.1 
DATA2, 230, 1, 165 3,137.1,2023, 243.168 758 EHI 
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ur 
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GOSLIE144E 
REM: HAUFTFROGRAMM 
REM: JOTSTICK-GRAF IK 
REM: “OH 
FEM:H. AHRENSFELD 
REM: UHD 
FEM:J. M. HEISE 
REM: 2156 CELLE 
REM:FÜER YE-28 +15K 
REM:+ 15325 +15238 
REM: IHTEH FIER 
4 REM: MASCHINENFRÜG, 
a FORT=3T0137: READA:FOKE4ERS+T, A:NEATT 
DATA169,15,141,9,144,159,46. 141,1. 144 
a DATAIEP,5,141.2.144.1659, 21.141,23, 144 
a DATA163.5,133,253,169, 16,133, 254, 169,0 
DATAIEZ2,0,1655, 244,157,9,143,128,145.253 
DATAZ4. 152,105 ‚13.189, 261,199.263,19. 166 
DATAA, 229,253, 165,253, 2 221.19, 240.4,232 


205 DATA?E,32,18,96,169,9,133.253.169,28 


DATA122.254,162,12,159:9,169,0,145,253 
DATAI26. 203,249, 202.249,7.169,0.23%0, 254 

Aa IATA7E,TE:18, 169,295, 141.5, 144. 183,19 
DATARidi.:2.144, 183, 253,133, 253, 163,19,1733 
TATAZI4, 182.168, 169, 128,145, 253, 126. 208.249 
4 IATA1E3.63,133. 253,169. 31,133, 254, 180. 160 
DATAIEF. 1, 145,252, 36,208. 249,96 

54 FORT=ATO215:RERIA:POKE4FSOHT.A:HEKTT 

239 DATR1&3,128,132. 243,169. 169.133, 253: 169,25 
aa DATAI22.2594,169,80,133,163,169.1, 133; Kay 
DATA1ER, 29. 169,127,141, 24. 145. 173.32,145 
Se re er 169,252, 141.234. jas ‚1723 
DATA21,145.41, 23.24. 1201.251,133,251:172 
DATA21.149:.41,32,1233, 252,132, 165, 165, 249 
IATA123, 166. 189.292: 132, 167: 165, 254.127. 168 
IATAR1E5. 251,201: 152,298:3,32. 122.13, 291 
TATAZ4.203,.6.32,1353,19.32.144,19 
DATAZA1. 28. 202,3:22.149,13. 291,20. 203 
DATRE.32.142,19.32,138,19,. 291,148, 298,3 
TIATA=2, 126, 13, 241, 132, 208,6,32,126, 19 
IATA22,172.19, 291.140, 293,3.32,173:19 
IATAZEIL, 126, 208,6.32:,173:.12,32:.132,.19 
DATA18S5; 252,291,%, 289,23, 155,259, 2 zat, In] 
DATAR2a2,6,169,1.133, 259, 203,4.169 
DATA123.258. 173,31, 143. 291,94,249,2 

lu ‚250, en Re Fe SE en ‚163,165 


Erz zı Daun 


Inh 


DT hr} Da u 


AN 


‚203:2:76.2 


FORT=ATO6S: READRA: POKESC 
LATA200. 35.138, 96.165.2 
DATA78. 249,96, 189,128; 

DATAaE.48 


:HE&TT 


PETE 
> 
m: 
ES 
DD 
as 


jr Dt De} 
aD“ 


- nnd I 


m) - 


zwangen 


Are MmMWRmin- 
n 


- Lu) 


ıT 

a 
m 
DR 
I) 

I 

ıSı 

m 


EUR) 
Dee 


(Mur En ET) 


MINE 


N u 


DATAIE4, 164. 1 
IATA24F. 208, 233, 244,5 
IAaTAled. 164.232. 14M, . 

REM: BASIC-PROG. 

FEIHT"T+ IOYSTICE-GREAFIE +" 
PRIHT"MMI=ZEICHNEH" 


(HET) 


Der HN ER N 


ar 


Compute milk 


IFA$="1"THEN? 


IFAg="3"THENLI 
IFA£="4"THEHFSG 


III TI NI NN 


a RE NR 
a 


FRIHT"RE=SUIEDERHÖLEH" 
":=EILT EIHSPIELEH" 
FRIHT"M=EILD AUFHEHMEH" 


va 
[abzd5) 
28 


3. Oktober ’84 


EEE Dan BER DS) 


un 
at 


YMOMDD RIDDD 


Ir 


De N EN BRUNNEN Sn Sa HAu Na Hin nn En) HUN En un nn Bun Eun Bun u un But Bun EN ZN 
{ren an BE a NE Be u a 5 EL BR SER DR We un NE er ech Br Dr | BI HE OR En a Eu Be 
Eh Je TE 


ı@m15 
Pr 


pers 
© 
Yin 

8: Dean ER ER WANT ENT 


1068 
1876 
i524 
18924 
110 
1118 


SOG EDDIE 


a TE DR 


be dm de de fe Ge fie finde ua jun 
Zi 


Tr A Dr fl 


Dina 


aan 


per 
$ 
je 


1428 
1429 
1444 
1453 
ide 
14758 
1435 
1422 


GOTOr71E 

REM: ZEICHHEH 

FEIHT"TH IOWSTICK-GEAFIE +" 

FEIHT"eWF1 MEHLE"PRIHT"F3 ROUTIHE ERSTELLEN" :PRINT"FS ROUTIHE ABFRAGEN" 
FPEIHT"M LAHGSAMER":FRINT"Z SCHNELLER" 

PRIHT"TRIGGER CURSOR OHNZOFF" 

FEIHT"FRESTORE HARDEOF'T M4- HICHT LIEBER FAND -":G05UB1324,339 
IHFLT"TIEEICHEHFARFE SIR; A: FOREZ4.A 

IHFUT"SCHIRMFAREE SSR"; A 

FOHE26379, A 

Srsledsn DSCARTZE 

Schr 

raldr772) 

FORT=@TOPEEK LIESS NERTT 

GETAE 

IFAF=" m" THEH359 

IFAF="@" THEH1 2A 


IFAE&="" THEH13S8. 
GOTOSZE 
FREINT"T':POKEIESE®. 
FOHREZESES, 22: PÜKE2 
GOTOSSE 

REM: EILD AUF- 
REM: HEHMEH 


132: FOFRE2E57, 45 
Beet, 12: POKEIBSES: 2 


B 


FEIHT:PRIHT:PRIHT 
SPEH1,1,1, "BILD" 
FORT=5129T031593 
E=FEEK(T) 
FRIHT#1,E 
HEATT 
ELOSEA 
GOTOIESA 
REM: WHIEDERHÖLEH 
IHPUT"ZEICHEHFAREE GIBAl';A:PÜKEZ4A.A 
IHPUT"SCHIRMFARBE Z51amal" A 
FOEEFESTS,A 
raten): POKEIEREA, 205: POKEZESEE, 19: GOTIS7O 
REM: BILD EIN- 
REM: SFIELEHN 
IHPUT"ZEICHEHFAREE EERMI":A:FOKES4A 
IHPUT"SCHIEMFARBE ZSRBBRl" A: POHEZES 
OPEHI, 1.8, "BILD" 
SSL IEREI: ATSLAIET2I 
FORT=S12 -ATc3159 
IHFUT#1,E 
FOKET,E 
HEATT 
ELOSEI 
GOTOEFA 


A, 
73.A 


= 

FORT=ETO423 

ErSc4772) 

GETA&E: IFRF="®" THEHSSS 
IFFEEEK 2313-156 THENIZSE 
FOKESZBG+T, PEEELZSIN:C=CHl 
FORR=STOPEEKCLESN:HESTR 
HE=TT 


3 GETRAE: IFAF="@' THEH124E 


FORESEBEHT, 158: 6070298 - 


FORT=1TOG 

FOKEZS1,FEEKCSZOS+T 

Syacdege) 

HEATT 

GOTO3SE 

REM: EHDE 

EHTI 15a FRIHT"MMEITTE MARTEH. DAS MASCHIHENPREÖGREAMM MIRD EINGELADEN." 
FOKEIE279,2I 1518 FORT=1TOSE@: NEHT:GOTO12A 
FRIHT'" a YIC-JOYSTICE-GEAFIE" 1522 FRIHT"EHIT A KEW" 
FEIMT'MERBRRRABB Ei" 1523 GETAF:TFAF=""GOTO1530 
FEINT"EM J. Ms HEISE" 1548 FETLFH 

FEIHT' BB 2 AHD" 

FEINT"M H. AHREHSFELDO" READY. 


3. Oktober '84 Compuhe mib A 


für den Gommodore 64 


In einer Burg muß man mit dem Hauptdarsteller des Programmaufbau: 


Spieles -Magdomnad-genannt entkommen. 1- 390: Vorspann Titelbild 

Zu Beginn des Spieles befindet sich das Männchen 1000- 1020: Cursor setzen 

rechts unten vor einer Zelle. 1500- 1530: SID Parameter setzen 
Die Aufgabe besteht nun darin, so schnell wie möglich 1600- 1540: Verzweigung Info/Play 
den Schlüssel zu erreichen. 2000- 2290: Bildschirmmaske 
Aber Vorsicht! Spinnen, Fässer, Feuerbälle und Fall- 3000- 3099: Mann bewegen 
gruben versuchen einen daran zu hindern. 3100- 3150: V+ 16 prüfen 


Gespielt wird mit einem Joystick an Controllport 2. 5000- 5999: Mann klettert hoch 
6000- 6999: Mann klettert runter 
7000- 7110: Mann springt links 
8000- 8110: Mann springt rechts 

10000-10499: Spinne bewegen 

10500-10999: Faß bewegen 

11000-11499: Feuerball bewegen 

20000-20100: Mann stürzt ab 

30000-30030: Kletterbewegung 

40000-40050: Sprites einlesen 

40060-40099: Sprites setzen 

50060-50220: Info Magdomnad 

60000-60030: Spielauswertung 

60050-60160: Pause oder neues Spiel 


REM rar ae aka ale ahk ak aka ak ae ak ae ae aka aa aa 


REM x* - * 
REM x MAGDOMHNAD * 
REM x * 
REM x (C) Z+K SOFTWARE * 


REM x * 
REM KK 

REM xxx VORSPANN TITELBILD #xx 

REM aaa ak aka 

18 CLR:PRINTCHRS (147 3CHRE<CLSICHRS( 1295 :POKESSZE1,9:POKES32898,,9:POKES3265,11 
28 V=53248:POKEV:21,4 

38 POKEZ9B42,13:POKEV+37,6:POKEV+38,2:POKEV+41,7 

48 FORN=BTOE2:READG:POKES32+N,Q:NEXT 

Ss2 PCKEY+4,1EB8:POKEV+5,58 

EB POKEV+23,4:POKEV+23,4:PÜOKEVY+23,4 

78 FORN=1TO5:FORM=1TO3® 

88 PRINTCHR&S(2269;5 : IFM=1ISTHENFORS=1TO1B8:PRINTCHRE (32) :NEAÄTS 

98 NEXTM:POKEB546 ‚PEEK (6465 ) - 1 2NEXTN 

188 DATA35,85,55,€85,35,85,64,0,1,64,498,1,64,170,1,66,:170,1293,794,178,161,66,178 
118 DATA123,64,130,1,64,138,1,66,1598,129,64,9,1,73,1935,49,64,135,493,67,3,193,76 
128 DATA3,43,76,3,993,79,1935,499,69,0,1,85,85,985,85,85,85 

1398 2E=108:SP=5:G05SUE1988 

148 PRINTCHR&(1S3S>"M A G” 

158 SP=390:60SUB 1298 

1E8 FRINTCHRE(C1ISII"N A D" 

1709 ZE=8:5P=12:G0SUB 1888 
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1 
e 
3 
4 
5 
E 
7? 
3 
9 
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E03 
208 
218 
eilt 
N 
215 
214 
214 
eis 
elle 
215 
218 
218 
ei19 
EEQ 
224 
For | 
222 
ers 


G- DO GM- GH DB. UGS OD 


FRINTCHRECIZSY" u -— su »v % 
?E=3:5P=12:605UB1288 

FRITae u u gm ga uwa m 
ZE=2E+1:505UB1088 

FRIT'23e ge 390 gm 3e= 3m" 
ZE=2E+1:60SUB10888 

FRINT' ge 302 zu 32 38 338" 
2E=2E+1:G60SUB1888 
FRINT"Z wm a2 3®=" 
2E=15:S5P=983:G05SUEB 1998 
FRINTCHR&(S)"<CC) BY BORIS Z IMMERMANN" 
ZE=2E+2:5P=15:G0OSUB1988 

PRINT"ACHIM KERN" 
ZE=2E+2:5P=14:6G0SUB1988 
PRINTCHR&(156) "PLEASE SELECT" 
SP=5:2E=21:605UB 1988 

PR INTCHRS (38 JCHRS(ISICHRESCIGEIICHRELCI27ISPC (27 ICHRECISESICHRECL2ETICHRSC1A46) 
ZE=ZE+1:G60SUB 1982 
FRINTCHRECSBOJCHRESCISZICHRECISLY"FI"SPCC23Y)"F3"CHRECISZICHRSE(ISEN) 
ZE=13:SP=4:60SUB19898 
PRINTCHR& (SI) "PLAY"SPC(C25)" INFO" 
POKES3265,27:G60T0 1508 

REM aaa ak ale ara ak ale aka ak a ak 

REM x%*k%* CURSOR SETZEN MC xx 

REM Ka ak ale ak ae ak ale ae ale ak ae ak ae ae a ale 


= REM xaHx2E=ZEILE SP=SPALTE#KK 


REIT rar an ak ak ak ale ak aa 
POKE214,2E:POKE211,5P:5Y553648 


RETURN 
REM Ra aka 
REM xxx SOUND Kr 


= REM Make ana aaa ae aka ae ara ak 


S1=-54272:FORN=SI TO SI+24:POKEN,B:NEXT 
POKESI+24,15:POKESI+6 ,255:POKESI+4,129 
POKESI1+12,9:POKES1+28,255:POKESI1+18,17 


REM ea ak ak ak ak ale ak ae ak ak ale ak ale ae ak ale a ae reale aa 
REM x+#+PLAY ODER INFO x KK 
REM 4*x2008 SBPABO KHK 


REM 3 ka ah. ak ak ak ak akt ak ale cafe a ae ale ale ak ale ak ale ale ak a ak ak 

GETTE: IFT$=""THENIEI® 

IFTE=CHRE(133)THEN 28088 

IFTE=SCHRE{134)THEN GOSUB 5098906:G0 T52290 

G0TO1619 

REM ar ak 

REM xx%* SPFIELBEGINN rk 

REM ana Kara 

POKEV+ZI,B:PRINT"” :FOKES5S3265, 11 

GISUE49090 -» 

?E=8:5P=B:505SU8 1988 

PRINT AA A A A A N 
PRINT" 234- "SPC (36) "44" 7 

FRINT ZIG H"SPCCEII)"' 0-5 

PRINT" IHM H"SPCCIII) "HN 

PRINT HN 5 
PRINT AR > Hr", 
FRINT" R--HE H"SPCCAY" RA M'SPC(28) " Ze"; 

PRINT" ER] |H"SPOCH> "a M'ISPC (25) " 

PFRINTeESHERD H"SPCECAY" A P'SPCCI"AH"SPC(SI" HE"SFCCI2) "a" 
PRINT" WSCH IH N SPCCI "AH m H "SPC CIE" "5 

FRINT BUS SPC" AH HH "SPCCIEI 
PRINTSPC(7I"4 a M’SPCC MD" HEHE HH "SPC I2I " A" 5 

PRINT"EHC 20R0A4 Ka PSP" He HH "SPC<E)" H"SPC 4)" A" 5 
PRINTSFCCTI" A a MV" SPC TV" AHRE AU H "SPCCE)" H"SPC (4) "a 
PRINT HH SPC) AA" 5 
FRINTY IH "SPC III BE HA 5 

FRINTI HL" SPCC3EOI "BERH "SPC "RE" 5 

FRINT" I ag H "SPCECa3) "aa H "SPCCAOY "RER"; 

PRINT" HABA IH "SPC2S) "ER H Kesedih-"; 

PRINT" He 
FRINT' AH HI" SPC (31) "HH" 5 

FRINT HG HR" SFCC3 VI HH" 

PRINT HR" SPC CS II "HH" 

PRINT" 4 — — — “;:REM 127/5/4/18 SPACE 
FCGKES3265,87 


84 Compuhe mib 


43 


Le 


2268 SP=7:ZE=2:60SUB129A:PRINT"WPRESS FIRE BUTTON TO PLAY" 

2278 J=PEEK (56328>: IF CJAND16)< >BO THEN22738 

2288 GOSUB1889:PRINT" "REM 25 SPACE 

2298 T1$="008898" :HC$="9999":MA=3:ET=9:Md=3:M1=5 

3ABA REM ak akak ak ak ale ak ak ak aka ak ak ak ak ak ak ak ak 

3881 REM **k%k MANN BEWEGEN xx 

3292 REM ek aa ak akealeunak aka ale aka ak ak ak ak 

381& J=PEEK (56328) 

sall IFPEEK(V+31)=60RPEEK (V+31)=140RPEEK (4 +39) < YOTHENGOTO29908 

3812 ON <ET+1) GOSUB18A99,190599,11888,11908 

39814 IFET=ZANDPEEK (V)=155THENGOTO3838 

3815 IFET=4ANDPEEK (V) >=38ANDPEEK (V+16)=1 THENGOTOEBBDOD 

Ss228 IFCJANDS)=BRANDFEEK (29849 )< >14 THENPOKEZ948,14:POKEV ‚PEEK(V)+5:60SUB3 108 
s825 IF<CJANDS)=BÄNDPEEK (2849 )< >13 THENPOKE2848, 13:POKEV ‚„PEEK (V)+5:60SUB3119 
s827 IFET=3ANDPEEK (V) =S5ANDPEEK (V+1)=1 10 THENGOTO348 

3823 IFET=2ANDPEEK (VI) =21BTHENGSOTO3948 

3038 IF<JAND4 )=AANDPEEK (2A49) <> 15STHENPOKE2849,15:POKEV ‚,PEEK(V)-5:G0SUB3 108 
5035 IF JAND4 ) =BANDPEEK (29498 )< >11 THENPOKEEBD4B ,11:POKEV „PEEK (V)-5:605UB3110 
S048 IFCJANDI)=BOTHENGOSUBSAAD 

3858 IF<CJAND2)=BTHENGOSUESYABDD 

3955 IFET=ZANDPEEK (4) 3 1SSORPEEK (V+16) = 1 THENSOTOSQIO 
Sc6a IFJI=187ANDPEEK (V+16)=DANDPEER (V) 7 =35STHENGOSUB7398 
39365 IFET=ZANDPEEK (Y)=1SSTHENGUTUSD1O 

3073 IFJ=19O3HMÜPLEK (V+16)=BAÄNDPEEK (V)<2BBTHENGOSUBSODD 
3055 GCTOEMA1O 
s18a 
3 
3 
3 


m; 


REM Ra 
i3l REM **%V+16 PRUEFEN%K%K 
182 REM ak ak ak ak aka ak ale ak ak ak ak ak ak ak ak ak 
105 FORP=1TOIS:NEKTP:POKESI+1,50:POKESI+1,8 
S186 IFPEEK (V+31)=6ÜRPEEK (V+31)=140RPEEK (V+3B8 )< >BOTHENGOTO22998 
Ss11® IFPEEK(V)<ABANDPEEK (V+16)=BOTHENPOKEV ‚35 
3128 IFPEEK<V)>SBOANDPEEK (V+18)=1THENPUOKEV ‚508 
3138 IFPEEK (V)=255STHENPOKEV+16,1:POKEY, 18:RETURN 
S148 IFPEEK<V)=BTHENFÜKEY+18,9:POKEV ,259:RETURN 
5158 RETURN 
SOEDO FrEId ak akaka ak ek aka aaa ahk aka ak ae ak ak aka 
5081 REM x MANN KLETTERT HOCH x%% 
SOAE REM aacak rk aka ak aka ak ak ale ak aka ak ak aka ak 
5828 IFET=BOANDPEEK (V+18)=BANDPEEK (Y)=35THENSSOB 
sa38 IFET=IANDPEEK (V+16)=1ANDPEEK (V ) =2B8 THENSSEOB 
5048 IFET=2ZÄANDPEEK (V+1E) =UANDPEEK (V)=2 1BOTHENS 798 
5058 IFET=2ANDPEEK(V+16) =BANDPEEK (Y)=155THENS3BO 
5083 IFET=ZANDPEERK (Y)=35THENPOKE2848,11:G60T05988 
=331 IFET=3ANDPEEK (VI) =SSTHENPOKE2849,11:GCTI59080 
58738 IFET=3ANDPEEK (Y)=4STHENS3SQ 
5188 RETURN 
5588 FORKL=214TO1S2STEP-4:POKEY+1,KL:GOSUBZODODB:NEXTKL:ET=1:RETURN 
Sseood FORKL=1S2TO14E5TEP-4:POKEY+1,KL:GOSUB3BBOBB:NEXTKL:ET=2:FOKEV+4 ,255: RETURN 
5702 PCEEW,ZIS:FÜRKL=142T011OSTEP-4:FOKEY+1,KL:GOSUBSOQ9B :NEKTKL:ET=3:RETURN 
5308 FOREKL=142TO1IOSTEP-4:FOKEV+1,KL:!GOSUE3OVHB :NEXTKL:ET=3:RETURN 
SEM FORKL=SPEEK(V+LITOIOZSTER-1:POKEV+L,KL:FOKESI+15,2089-KL:NEXTKL:ET=3:POKESI+A1 
5 ,0:RETURN 
5354 FSRKL=S198ZTOEZSSTEP -4:POKEY+ I ,KL:GOSUBS30009 :NEXTKL:ET=4:RETURN 
2333 RETURN 
zO20 REM rc 
6981 RIM #4%* MANN KLETTERT RUNTERK*%* 
SOOZ REM aan ak 
6823 IFLT= 1ANDPEEK (V+16)=BANDPEEK (YV)=35THENSSOB 
€e239 IFET=SZÄANDPEEK (+ I6>=1ANDPEEK (V)=28 THENEEBODO 
8948 IFET=3ANDPEEK (V+1S) =BÄNDPEEK (Y)=21STHENG7OO 
eaSsa IFET=SANDPEIKYrLEISBANDPEEK (Y)=15SSTHENESBO 
06a IFIT=2NHNDPEEK (V)=3STHENGFOB 
&aS IFET=SSANÖPEEK (VI) =35STHENPOKE29849, 11:60 TU6308 
8075 IFET=4ANDPEEK (V) =45THENSIS® 
EITA RETURN 
s598 FOÖRKL=1SETO214STEP4:POKEV+L „KL IGOSUESSBBB:NEHTKLIET=B:POKEV+4 ,„255:RETURN 


"ELEN FÖRKL=142 01325 TEPS: FOKEV+1,KL:GOSUB3VB98 : NEXTKL:ET=1:POKEY+B ,217:POKEV+7,8 


S:RETUFN 

8708 FLREKL=II3TZI ESTEP4:POCKEVY+1,KL?GOSUBSODEB:MEXHTKL:ET=Z:POKEY ,Z15:RETURN 
E300 FOREL=SLIBTIIIEEZTEPFTPOKEV+1,KL:GOCSUE3ORBB:NEXTKLIET=2:RETURN 

gs2e0n2 FORKL=SFEER(V+ TI TGLIAZ:FOKEV+1,KLIPOKES1+15,238-KL:NEXTKL:ET=2:POKESI+15,8:RE 


€953 FARKLSEZTOLGESTER4:PFÖKEV +1 ,KLIGOSUESDOOO:NEXTKLIET=3:RETURN 
34T RETURN 
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7838 REM aaa aka aaa aaa ae 
7381 REM xxx MANN SPRINGT LINKS xx%k 
TOBZ REM aka aaa aaa a ak 


7829 Si=PEIK (VY: S2=PEEK(V+1) 
78038 FORN=ITOZ 


7843 POKE2949,15:52=52-5,.5:POKEVY+1,52 

7845 FORP=398T032:POKESI+15,P:NEXTP 

7058 POKEE848,15:51=51-15:POKEV,S1 

7855 FÜRP=33T0O35:POKESI+15,P:NEXTP 

7056 CN KET+1) GOSUB10088,185008,11909,11088 


7BEB NCKTN 
7979 FORN=1TO2 


o38 POKEE849,15:52=52+5.5:POKEYV+1,52 

7885 FORP=35STO33STEP-1:POKESIT+15,P:NEXTP 
7838 FOKEE8498,15:$S1=51-18:POKEV,SI 

7835 FORP=32TIIBETEP-1:POKESI+1S,P:NEXTP 
7836 CN (ET+1) GOSUB18009,10508,11088,110088 


7188 NEXTN 
7105 FOKE2@48,11:POKESI+1S5,® 
1138 RETURN 


EBOR REM ara dead aka aka aaa aka 
8981 REM x*k%k MANN SPRINGT RECHTSx#X* 
SOZE REM aaa ak 


3829 S1=PEEK(V):S2=PEEK <V+1) 
39393 FORN=LTOZ 


so4a POKE2949,14:52=52-5.5:POKEV+1,52 

8845 FORP=29T032:POKESI+15,P:NEXTP 

80858 POKE28498,14:51=S1+15:POKEV,S1 

8955 FORP=33T035:POKESI+15,P:NEXTP 

80586 ON (ET+1) GOSUB18809,18508,11008,118088 


8368 NEXTN 
&878 FCRN=LTOZ2 


354 POKE29848,14:52=52+5.5:POKEV+1,S2 

8885 FORP=3STO33STEP-1:POKESIT+15,P:NEXTP 
8838 FOKE2049,14:51=S1+1B8:POKEV,SI 

8895 FORP=32TO3BSTEP-1:POKESI+15,P:NEXTP 
SOSE ON (CET+L) GOSUB19998,10598,119808,11908 


8188 NEXTN 
81985 POKE2848,13:POKESI+15,8 
8118 RETURN 
18888 REM aka ak 
18881 REM xx4ET=8 SPINNE #%% 
18882 REM wink 


18810 IFPEEK (V+2))2598THENMO=-3 


18829 IFPEEK (V+2)<30 THENMO=3 
180838 POKEV+2 ,PEEK (V+2)+MB 
18439 RETURN 

185808 REM zus kuaKkckkckich 
18501 REM xx4ET=1 FASS “xx 
18592 REM xAKKuc KK EEK 


18518 IFPEEK<V+4)=35THENPOKEV+4 ,255 


18528 POKEV+4 ,PEEK(V+4)-Mi 
18399 RETURN 

118088 REM xx kankr kicker 
11821 REM aıx4ET=2 FEUER #%+% 
11032 REM xuKKkaKcKccucKirec 


11835 IFPEEK (V)<ISBANDPEEK (V+16)=BTHENPOKEV+7,85:POKEV+6,217:RETURN 
11818 Q=PEEK(V+7):R=PEEK (V+6):Q=Q+4 ıR=R+2:POKEV+21,15 


11815 IFPEEK<V+7)>148THENR=255 
11828 IFPEEK (VY+7)Y15BTHENPOKEV+7,85:POKEV+6,217:G0T011918 


11825 POKEV+7,Q:PCKEV+6,R 
11489 RETURN 


2862832 REM set 
222881 REM *#*4MANN STUERZT ABxxkx 
z3a82 REM ki k 


20085 FORN=1TO1S:POKEV+39,N:POKESI+15,N:FORP=1T038 :NEXTP,N:POKESI+15,8 


28818 Q=PEEK (V+I) 
289828 FORN=QTO217STEPI 


2808398 POKEV+1,N:POKESI+15,N:NEXT:POKEV+21,1:POKESI+I1S,8 


28848 POKE2848 ,251:POKEV+39,12:POKEV+21,15 
208045 5P=6:ZE=2:50SUB1888:PRINT"SBAAGDOMNAD BRRUHE IN FRIEDEN!" 
28858 FORP=1TV15898:NEXTP =MA=lM-1 


20051 IFMA=SOTHENSP=6:ZE=23:G0OSUBIB888:PRINT"J GAME 


3 SPACE 


3. Oktober ’84 


Compuhe mi 


OVER 


"REM 27/3/ 


45 


46 


DEU 
III ZUR raılr 


29853 
20093 
SPACE 

208355 
28868 
28978 
209858 
2o921 

20985 
298838 
28031 

28935 
28896 
ELBA 
20180 
S2E038 
33081 

SCBLE 
sanıe 
3c015 
3B216 
3090928 
38825 
3902€ 
330320 
40928 
4820; 

42092 
48318 
408: 
49833 
49248 
480495 
44946 
493047 
423043 


4a878 
49339 
449593 
42180 
4o181 
48182 
498103 
“ad20a 
aB=zB1 
49282 
42203 
433008 
aa381 
48392 
498393 
49840988 
48491 
498482 
49493 
48598 
490591 
48592 
48503 
49588 
4o6081 
49E92 
49693 
437808 
407081 


N) Ya\ Mm ” 

Urn 1 7 

IFMA=QOTHENFORP=1TO1888:NEXTP 

IFMA=BTHENSP=6:2E=2:G0SUB1B9Q: PRINT" ":G0T0O68888:REM 
SP=6:IE=2:605UB1898:PRINT" ":REM 27 SPACE 


POKEV+21,8:POKEY+16,1:POKEV,39:PÜKEV+37,6:POKEV+38,3:POKEV+39,1 
PCKE2849,11:POKEV+1,214 

POKEV+&E,217:POKEV +7,55 

POKEV+2,55:POKEV+4 ,255 

PCKEV+31,0:POKEV+38,8 

POKEV+21,15:ET=O 

SP=38:2E=5:G605UB 1888 :PRINT" "MA 

SP=11:Z2E=-2:G605SUB1880:PRINT"WPRESS FIRE BUTTON" 

J=PEEK (553299: IFCJAND16)< >BOTHENEQOSE 

GOSUBI989: PRINT" "REM 17 SPACE 

COTOS888 

REM aka ek 

REM KLETTERBEUEGUNG 

RE ak 

IFPEEK (2848 )< )25STHENPÜKE2948 ‚255 
FORP=1TO75:NENTP:FOKESI+15,28:POKESI+15,08 

CN KET+1) GCSUB19088,18528,11888,110888 

IFPEEK (2848) < 254 THENPOKE2048 ,254 
FORP=1TGTS:NEXTP:FOKESIT+15,30:POKESI+15,8 

ON KET+1) GOSUB18809,105909,11008,11080 

RETURN 

REM ek 

REM #%*x% SPRITES LESEN x#x% 

REM Kara 

FORN=BTÜOS2:RERDG :POKE 784 +N,Q:NEXT 

FORN=BTOSZE :READQ : POKES332+N,Q: NEXT 

FORN=BTÜS2:READQ :POKES3S +N,Q:NEXT 

FORN=ATOSZ :REARDG :POKESEO+N,G NEXT 

FÜRN=BTOESZ:READG :POKE 165328 +N, U: NEXT 

FORN=8TÜS2 :RERADQ :POKE 16256 +N, U: NEXT 

FÖRN=BTGEZ ERERDG :POKE161S2+N,U:NENT 

FORN=SOTIEZIREADG:PGKEIEIZS+N, 2: NEXT 

FORN=B8TCBZ :REARDG :FOKE 16QJ6=+ +N,Q:NEXT 

FCRN=3TISTEREADU :POKE 168985 +N,Q: NEXT 

REIT aaa 

REH «+4 1INITIALISIERUNG#K* 

REM 

4=52243:PÜIKEVY+23,98:POKEV+29,8 
POKE2848,11:PÜKE2841,253:PUKE2942 ,‚2S2:PÜOKE2943 ,258 

POKEV+37 ,5:POKEV+38,&8:POKEV+39, 1:POKEV +49 ,98:POKEV+41 ,3:POKEV+42,2 

POKEV ,S3:FPCKEV+1 ,214:POKEV+2 ,55:POKEV+3 ,2293: 

PGKEY+4 ,255:POKEV+5,1931:POKEVY+6 ,217:POKEV+7,35 

POKEV+30 ,U:PUkKEY+31,8 

POKEV+1&,1:POKEV+Z21,15:POKEV+28, 11 

RETURN 

REM MANN STEHT LINKS 
DATAB,1E3,8,2,178,8,0,254,8,0,698,0,3,252,0,0,252,0,0,498,80,0,84,90,1,17,8, 
DATA17?,8,3,17,8,3,81,8,3,5,8,1,85,0,0,84,0,0,28,0,9,209,09,0,23,8,0,23,08,€ 
DATA148,98,8,168,8 

REM MANN STEHT RECHTS . 
DATAB,42,0,0,170,123,0,191,8,9,69,8,0,63,192,86,63,80,0,12,0,8,85,8,0.,68,€ 
DATAB,E3,64,8,63,192,9,69,192,0,54,132,0,85,64,8,21,9,0,20,0,0,28,0,0,28 
DATNB.0,298,0,08,22,2,0,42,08 
REM MANN GEHT RECHTS 
DATA®B,42,0,0,178,128,8,191,08,0,69,08,0,63,192,0,63,8,8,12,8,8,85,90,0,68,€ 
DATA8,68,64,8,68,64,8,68,64,8,127,64,0,33,64,8,21,0,80,21,90,8,81,694,1,64, 
DATA1,08,16,2,90,32,0,128,48 

REM MANN GEHT LINKS 
DATA®,168,0,2,170,0,0,254,80,0,69,8,3,252,90,0,252,0,0,48,0,9,85,0,1,17,8, 
DATA17,8,1,17,8,1,17,8,1,253,8,1,117,08,0,84,0,8,34,8,1,69,0,5,1,694,4,0 ,£ 
DATA8,8,123,48,2,128 

REM MANN KLETTERT L 
DATAB,168,0,2,178,8,14,170,0,12,252,0,4,252,0,49,252,192,4,48,192,5,85,6« 
DATAS,85,64,1,35,8,1,85,8,1,85,0,1,85,0,1,85,0,0,934,8,9,132,8,9,132,8,8, 
DATAB,8,4,8,0,8,0,0,8,8 

REM MANN KLETTERT R 
DHTAB,163,8,2,178,08,2,178,192,9,252,192,12,252,64,12,252,64,4,48,64,5,8: 
DATAS4,5,35,64,1,85,8,1,85,8,1,85,8,1,85,80,1,85,8,9,34,0,0,72,8,8,72,0 ,4 
DATA684,8,0,64,8,8,128,0,98,128,8 

REM SPINNE 
DATA®,®,0.2,0,8,0,608,0,8,255,8,3,255,192,3,125,192,3,255,192,8,195,8,0, 
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aera2 
409793 
9300 
J39391 
49302 
40398 
yasnı 
48322 
4a 


40950 


co 
Vu... 
a. any 


© 
Gc 


O0 
m fo tun 


m 
Fin Wi 


man 
D 


23:08 
{2} 
m 


0 cım 


amınmmo cn 
oc 


je Bw 


3. Oktober ’84 


DATAO,D2,49,123,3,139,32,34,0,135,39,8,135,8,0,0,0,0,0,0,0,0,08,0,0,8,8,8 
CHTA0,0,0,08,08,9,0,0,8 

REM FASS 
DATAHA,.Q,0,0,0,0,0, 
DH TACSZ,0,0,1293,08 
REM GRAB 


EATAO,385,0,9,125,0,0,125,0,9,125,0,0,125,0,5,135,89,7,255,208,7,255,208,7? 
DATR2SS,203,5,125,30,98,125,0,8,125,0,9,125,0,80,125,08,2,125,123,19,125,168 
EATH42,125,1638,1798,25,170,170,170,170,178,170,170,170,179,17 

REM FEUERBÄLL 
DrATr9,0,0,9,16,0,3,15,9,948,223,98,12,32,132,14,16€,152,18,251,16,17,238,16 
137.2138,8938,8215 ,0.1,1.19,;, ‚8,212,08,80,16,0,8,8,9,80,0,0,2,8,8,9,6,0,0,0,8 
EATNB,0,08,0,0,8,0,8,08 

FEETT a 

REM #4 INFG MADDSCMNAD RER 

REM Krk 

2[.=8:&P=& 

FOÜRNM=ZT TO 2E+19 

G7-7LUE1029 

FRIHT" "Z3ZESZEHLINERTN:SREM 48 SPAC 


2ZE=5:5P=85:677.U8 190989 
FRINTCEHRECSI "INFORMATION MAGDOMN AD" 
PRINT" SIE BEFINDEN SICH IM KELLER EINER BURG" 


PRINT" VERSUCHEN SIE ZU ENTKOMMEN" 
PRINT" GISPIELT WIRD MIT DEM JOYSTICK PORT 2" 
FRINT' BIBELN DRUFCKEN SIE DEN FEUERKNÖOPF * 
J=PEFNASGIID) 


IE It m iG)=SDOTHEN RETURN 

STASI 

REIT EEE RA EHRT HE E 

RE #44 SPFIELAUSWERTUNG »r% 

REM rar 

Sst=3:?lel:60RUJSL1A0UO 

TSV TIEI:T=ST4 1.5 

35=-10839- T35C=5Ca418 

IFMA=SBTHINSCSVALCTIE)IKLBS IFSC Y)SOBOQOTHENSC =5809 

PRINTISNOUR SCORC"SC"H"K108 MA) "EBONUS " :SC=SC+C19OB KA) 
SCE=SSTRECEEI ST IFVÄALCSCH) VAL CHCS) THENHCS=SCH 
IFLENCHTEISITHENHOES "9 "+HCH 

FORH=ITOISSZE=S12:5P=23:GUSUB1OB2:PRINTHCS" ":POKESI+15,50:FOKE696,N 
S1+15,25:NEXTN:FOKESITHI1S,B:FÜKEBAE, 1 
FORN=ITOL1B:FORM=1TUOSQO:POKESI+LS,MSMERTM,N:POKESI+I1S,O 
SP=e4:ZE=s21:COSUELEBA:PRINT"ERRESS FIRE EUTTUN FOR NEW GAME" 
J=PEER<CSEZEBI:TFRISND IE 3 SZBTHENGBOBS3O 

INWIEETZERTTERT Eee Tee 

RE wo MEW GAME - RESETKrK 

REM KARRIERE 

IP=4:2F6=-21:6G93UB 1089: PRINT" ":REM 38 SPACE 
SF=e£:22E=2:505URBRIBO9: FRINT" " :REM 28 SPACE 
POKEW+EL.O:POKEY 30: POKEY+1 214 POKEY+1S, 1L:PÜKEV+E „55: FOKEV+4,255 
FOKLW+E,EIPSPOKEV+Y,S5:POKE2948 , 11 
ET=-2:MA=3:PÜKEV+Z21.15:POKEY+32,DO:PÜKEW+SL,O 
ZEP=39:2E=35:NISUB1YOR:PRINT" "MA 

TI£="eNZea9” 

chT22293 


PK 


Der ideale Schönschreibdrucker für Ihren 
C 64* von (ei) OLYMPIA electronic compact 2 


@®eingebautes Interface für @ 100 Zeichentypenrad 
seriellen Port @ 14 Zeichen/Sekunde 
® Adresse 4 oder 5 einstellbar ® Leerstellenunterdrückung 
® Schreibmaschine mit Korrek- @ sofort lieferbar 
turspeicher @ enorm preiswert 
@ ON-OFF-Line Taste trennt @ viele Typenräder, Gewebe- 
Betriebsarten Karbon-, Multikarbonbänder 
© Zeichenabstand (10, 12 und @ bundesweiter Werkskun- 
15 Zoll) und Zeilenabstand dendienst 
(1, 1 1/2 und 2 zeilig) 
vom Rechner einstellbar 
@ ohne Tastatur als compact 
2 RO 


* auch für andere Rechner mit Centronics, V.24 und IEC-Bus. 
Alle OLYMPIA-Drucker (ESW 102, 103 u. 3000) für den C 64 lieferbar 


„„  Telemannstraße 18 
-Datentechnik 7250 Leonberg (Höfingen) 
® 07152/6305 


Compute mib 


48 


3 O m ber für den Gommodore 64 


Sie müssen versuchen, die radioaktiv verseuchten Weg schicken. Da Ihr Flugzeug immer tiefer sinkt, 
Hochhäuser einer Stadt mit Ihren Bomben zu zerstö- müssen Sie sich sehr anstrengen, sonst zerschellen 
ren. Sie haben tausende von Bomben, die ein Haus so Sie an einem radioaktiv verseuchten Haus. Eine 
lange zerstören, bis Sie die nächste Bombe auf den Bombe wird mit ”F1”-Taste abgeworfen. 


1 READAE: LFHS="G" THENGOTO10B 

= GOSUE13BB8: FOKE43152+5, 2:5=5+1:6G0T01 

15 DATAADL. GE, DC, 22, FE, 8D, GE, Doc, AS, 61,29, FE,55, 01:93, 10,5 
12 DATAH®S: >32, EEE ‚25 Ad, un, Bil, .,31,24, [a5 Ss 22463, FF:F8,47, 
7,13, F8,6D, A3,049,85, 22,89. 24,668, 23, 68.325,40, : 
ls DATAAD.GE.IC.B9.01. SD. BE, Dı,, AD, 15,18, 23, FE,603, 00,80, 18, DE 
1er FREIHT TIEeeB  e EIER Mu 

11a FREIHT"SBBIOAS EELIEETE SPIEL FUER JUNG UND ALT":FEINT"W" 
ZI TPRRIHTE ee lern Fe 

FEIHT" F AIHFIEOL FÜR THE . ":FRIHT 

PRIHT" - EOMNMÖDORE 64 . ":FRIMT 

3 FRIHT" " Er .":FRIHT 

A FREIHT" ii EHRISTIAH LAENTZSCH Fi 

ET a. awiataeie ee enteetee FH Bi 


‚BI,BS,EE, 55,24 

24,40, 1E, 06, AS 
‚21.53,64,55, 01 
IK} 


31=54272:FÜKESI+24, 15: POKESI+5, 179: POKESI+& . 178: POKESI+4, 35 
FOKRESI+12, 17: FOKESIHLS, 1FE:FÜKESTI : 
FÜKES1+13 ‚18: FOEESTIHER. 1 FE: FÜHES 


“=1 

FOKES I+1,2:FOKESIHS, #-1FÜKESI+H1S. HH 1: K=8+ 1: IFR=2S3THENGOTOSLE 
GETA$: IFA$="F"THEN31O 

GITOEEB 

PRINT": FOKESI+4, SE: PFÜKESI+11, 32: POKESI+H1S, 38 


FEIHT" ME" TABE 173" SEOMEERM 

FEIHT" BHO HAWE TO DESTROT THE FRADIÖRLTIYE" 
FRIHT"BBBNZÖHTHMIHATED CITY UITH TÜUR “EOMEBER“ " 
FEIHT" INT SCHÄB THE CITr Hol HAYE THÜUSEHDS" 
FEIHT"MBIÖF SMART EOMES HUHICH MILL DASH THE " 
FEIHT"MBILD HOUSEE AS LOHGS AS HD OTHER EOME" 
FEIHT"BWIIS ON IT3” UAT .„" ® 
; FEIHT'MRMRWFERESS "F“ TO BEGIHa':FEIMT BEIM = FIRE" 
43a GETRE: A Le 2 

41H PRINT": 5794915 2: FÜRs=3T032: RERDDO: FORELZSER+E. DINEKXT AUSSAH 
415 I=3 

42 FORR=1T025 

433 A=INTERHNDELPESSHHL LES A=A+de: IFPEEESAHHR N =3ATHEN4SH 

444 FÜRT=S1T0E8 

454 FÜKESSEFE+HLA-1EE4, DT FOKER, 38 

4sd A=sf+tda 

47 NESTT:HEXTE 

29 Jelle4!l=:K=8:'F=4:M=32:FA=55E58 

555 FEINT"SSPUHKTE"FU" J"D 

ssa GETCE: IFC$="w" THEHK=1:FÜKEJ+L,M:L=F 

75 FOREI+F-1.M:FÜKEJ+F, 23: PFOKEFA+F , 1: IFE=1 THEHSÜSUELAZAG 


Gi 


ee 
_ 
Ir 
. 
. 
De) 
Im} 
. 
I 
a 
De} 
eu 


IH Be 


=29 F=F+1:IFE=STHEHL=F 

>49 IFFEEKGI+FO=3HTHENHGOTOIASEHB 

eta]5ı IFFUS=SUTHENGOTO 1ER 

El be 

124% „A£3-45: IFAFLSTHEHA=SÄA-7 

15E1 SERFRIGHTEEAF, 13-45: IFEFLSTHEHE=E-7 

152289 Ceft16+B:RETUFH 

la240 L=l+42: IFFEEKRJ+LI=3STHEHFU=SFU+HL1:FOKEJ+L-48, 32: FOKEJ+L. 31: FOKEFA+L, 1 
12218 IFJ+L>FZEZETHEHK=SEN FÜKEI+L-48, M:RETUFRH 


Compute mib 3. Oktober ’84 


UHTALEG 24, M: eh FOKEFRH+L., 1:FETUFH 


‚12 24,165,255, 153,193, 193 


4,2 ee 4,4,4.9.4,0,0.8,9.0, 
FÜKEIAL, ‚M: ne 1,M: FÜOKEJ+F ‚33: FOKEFR+F, = 


E=1+5.652:'FÜEESI+tE.A:FOEESI FE 


14, 123 


:F LEI#F, M 
Pll= Pll#l. IFFU==UTHEHL LESS 
Io=D-1: IFD=STHEHIOSAE 
GITISSEA 


FRIHTOeteteti üLHTE SS "PLEFEIHTOTBÖNE RANK IS": 


IFFUKLS a RE": GOTO1ESAS 
JE 2x \ ‚T":G0TO1ES5E6 
143% PRIIE - HENFEINT' LOOK :GOTO1ESEE 
Lada "FL en IHTEFERÖOR"GOTOIASER 
5 FE THE „HF: IHT"EHPFERT":GOTOLESEN 
"RIHT"SEMIFEI"GOTO1ESAF 
a FR": GoTO1aERAH 
Zi re een. GITOLESEE 
IFFUFSFSSTHEHFREINT"HERÜ 


1a51a 
1252 il 
Lens ER: j un Lelnlnininje 1 2 : #EOHUSSAMEH 
1125 -ÖfEit TuS :F ‚ECHEXTEE 
18 -]+4, 6 
11920 FÜK z : FE: FÜKRESI+HE, 1 
1 lin: 1 : 
1 Ja FOEES 11. AS: FORESTI+LS. AST HER 
=1+4.8:D=l+r1:G0TOg4Ea 


GE TNE IPABE"" MENU HGRATH"FRINT WON RES 


r 


FREE" 


TAZ:FRIHT" 


für den Commodore 64 


Asterix benötigt alle 8 Sprites. Alle Sprites sollen zu 
einem Bild zusammengesetzt werden. Das Spielfeld 
besteht aus einer 3*3 Matrix. Es können immer nur die 
Bilder verschoben werden, die direkt neben dem 
freien Raum liegen. Zum Verschieben stehen die Ta- 
sten 1-9 zur Verfügung. 

Die Sprites in die richtige Reihenfolge zu bringen ist 
gar nicht so einfach, wenn man bedenkt, daß es sich 
nur um eine 3*3 Matrix handelt. 


3. Oktober ’84  Compuhe mib 


“ie 


u. ‚15 wi} 153,153 
2.5, 132 


»1:FÜKESI+ER. 


Ak BET" FÜ 


Al=sal+aad 


49 


50 


REM 3% ak ak ale ak ak ak ak le ak ak ale ae a ak ale ale ae ale ak ale ak ak 

REM x%* COPYRIGHT x** 

REM xx BY x%* 

REM xx HEINZ PAUDITZ x*%* 

REM aka ak ale akcak ak ak ak ak ale ak ak ak ak aka ak ka 
POKES3281,5:POKES3289,5:H1=188 

REM #%*% FPROGRAMMBESCHREIBUNG xx 
FRINT"ISERBESTELLEN SIE BITTE DIE KLEINGRAPHIK 
PRINT"BBRICHTIG ZUSAMMEN. ES HANDELT SICH UM 
PRINT"ERPMSTERIX. ALS ZUSAET2ZLICHE SCHWIERIGKEIT"; 
PRINT"IBEM ANFANG IST DIE GRAÄFHIK BEREITS 
FRINT"BBPPEURCHMISCHT. 

FRINT"BBI/ERSCHIEBEN DER SPRITES (3x3 MATRIX) 
PRINT'BBMIT:Z 1-2-3 

PRINT’ E33 

PRINT" 4-5-6 

FRINT"U ii 

PRINT"B 7-8-9 ’ 

PRINT'EEBED] BITTE TASTE DRUECKE N? 
POKE198,8:WAIT193,1 5 
REM *%%* UMRAHMUNG VON ASTERIX xx* 
PRINTER SEC: 3 u 
FORI=9T014 

PRINT" EARB r 

NEXT 

PRINTER in JP 

PRINT'"EBERBEBESTE ANZAHL DER VERSUCHE: "zHI 
PRINT" ERPBpp" SPCC2S)"1-2-3" 

PRINTSPC 2837" I 1" 

PRINTSPC(28)"4-5-6" 

PRINTSPC<28)"| | I” 

PRINTSPC (28)"7-8-9" 

REM xxx VARIABLEN DEFINIEREN x%% 

U=11:2B=3:X=9 

v-53248 

REM x%%* RICHTIGE ZUSAMMENSTELLUNG VON ASTERIX xx% 
C(8)=57:C(1)=185:C0(2)=57:C0(3)=195:C0(4)=153:C0(5)=57:C0(6)=195:C0(7)=153 
D(8)=89:D(1)=88:D(2)=122:0(3)=122:D(4)=122:0(5)=164:D(6)=164:D(7)=164 
REM x%x%* LESEN DER 3 SPRITES xxx 

FORE =288T0207 :FOKE28498 +E-2088 ‚E:FÜRD=684 xETOB4 KE +52:READS 
POKED ,S:NEXT:POKEVY+33+E-288 „U:NEXT 

POKEV+21,255 

REM x%k%* FARBEN DER SFPRITES xxx 
POKEY+39,0:POKEV+498,8:POKEV+431,08:FOKEV+42,08:POKEV+43,8:POKEV+44 ,B:POKEVY+45,8 
POKEV +46 ,8:POKEV+23,255:POKEV+29,255 
GOSUB241B:REM xk%k VERTAUSEN DER SPRITES x%#x* 

REM xx HAUPTPROGRAMM x 
POKEY,RA(B):POKEV+1,B(B) 

POKEV+2,AC1):POKEV+3,B(C1) 

POK.EV+4 ,A(Z):POKEV+S,B(C2) 
POKEV+58,A(3):POKEVY+7,B(3) 
FOKEW+38,A(C4):POKEV+9,B(4) 
POKEY+1B8,A(S):POKEV+11,B(5) 
FOKEY+12,A(6):POKEV+13,B(6) 
POKEV+14,A(7):POKEV+15,B(7) 

REM x#*# ABFRAGE OB RICHTIGE ZUSAMMENSTELLUNG xx %k 
FF=38 

FOR1=8T07 

IFCCIISACTIANDDCII=BCIITHENFF=FF+Ai 

IFFF=8THEN2298 

NEXT 

PRINT" SER" SPC (25) "VERSUCHE: "7 

REM xxx TASTENABFRAGUNG x%x% 

GETAS 

IFA$=""THEN?5® 

IFA$="1"THENZA=1:G0SUB388 

IFA$= "2" THENZ2A=2:G60SUB398 

IFA$="3* THENZA=3:GOSUB1198 
IFA&="4"THENZA=4:GOSUB1218 

IFA&="5" THENZA=5:G0SUB1328 

IFA$="6&" THENZA=6:605UB1438 
IFA$&="7"THENZA=7:GOSUB1549 
IFA$="8"THENZA=3:G0OSUB 1658 

IFA&="3" THENZA=9:GOSUB 1769 

GOTOS32 
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878 
888 
s38 
s988 
318 
928 
3308 
948 
359 
-1=72) 
978 
9338 
998 
10098 
1818 
1826 
1938 
1848 
10598 
1369 
1078 
1088 
1038 
1198 
1118 
1128 
1133 
1148 
1158 
11608 
1178 
11:8 
1198 
1209 
1218 
1220 
1250 
1248 
1259 
12E8 
1278 
1258 
12938 
1388 
1318 
13298 
13398 
1348 
1358 
1368 
1378 
1339 
1330 
14399 
1418 
14208 
1438 
1448 
1458 
1468 
1478 
1488 
1438 
1508 
1512 
1528 
15598 
15498 
1559 
1568 
1578 
15808 
15998 
1698 
1618 
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REM x*%* VERSCHIEBUNG DER SPRITES xxx 
IFZB< »2ANDZB < >4 THENRETURN 
2D=2:2C=2:X=X+1 
IFZBX4THENZD=8:G0T0928 
IFZB<7THENZD=1 
IFZB=10RZ2B=40R2ZB=7THEN2C=8:G60T0948 
IFZB=Z0RZB=50R2B=8THENZC=1 
2B=2A 
FOR1=8T0? 

IFACII=S7ANDB (I) =8BTHEN:ACI)=57+2CK48:BC1)=80+20x42:RETURN 
NEXT 
RETURN 

IFZB< > LANDZB< >3AND2ZB< >STHENRETURN 
2D=2:2C=2:%=X+1 
IFZB<4THENZD=8:G0TO1038 
IFZB<7THENZD=1 
IFZ&E=10ORZB=40R2B=7THENZC=8:G60T0 18598 
IFZB=20R2B=50R2B=STHENZC=1 

26=2A 

FORI=89TO7? 

IFACII=1BOSANDB (CI) =SBOTHEN:ACII=57+2C#48:BC1)=80+2D+442:RETURN 
NEXT 

RETURN 

IFZB< >2ANDZB< >ETHENRETURN 
Z2D=2:2C=2:X=%+1 
IFZB<4THEN2D=8:G60T01148 
IFZB<?7THENZ2D=1 
IFZB=10R2B=40R2B=7THENZC=9:GOTO1 1698 
IFZB=20R2B=50RZB=STHENZC=I 

286=2A 

FOR1=8T07 

IFA<ID=S1SSÄNDB CII=SBOTHENACII=57+2CK48:BCI)=88+ZDx42:RETURN 
NEXT 

RETURN 

IFZB< > IANDZB< >5SANDZB< >7THENRETURN 
2D=2:2C=2:X8=X+1 
IFZB<4THEN2D=8:G0T01258 
IFZB<7THENZD=1 
IFZB=10R2B=40R2ZB=7THENZC=8:G0OTU1278 
IFZ8=-20R2B=50ORZB=3THENZC=1 

2B=2A 

FORI=8T0? 
IFACII=ST7ANDBCII=S12ZTHENACII=57+2C*K48:BC1)=398+Z2Dx42:RETURN 
NEXT 

RETURN 

IFZB< >ZANDZB< >J4ANDZB< >JEANDZB < >J3STHENRETURN 
2D=2:2C=2:X8=X+1 
IFZB<4THENZD=8:G0T01358 
IFZB<7THENZD=1 
IFZ2E=10RZB=40RZB=7THENZC=8:G0T01388 
IFZE=20R2ZB=50RZB=8THENZC=1 

2B=2A 

FOR1=8T07 

IFACII=S1BOSANDB CI) =122THENAC1I)=57+2C#48:BC1)=89+2Dx42:RETURN 
NEXT 

RETURN 

IFZB< >3ANDZB< >5AND2B< >JISTHENRETURN 
2D=2:2C=2:X=X+1 
IFZB<4THEN2D=8:G60T01479 
IFZB<7THENZD=1 
IFZE=10RZB=40R2B=7THENZC=9:GOTO 1499 
IFZB=20R2B=SORZB=STHENZC=I 
2B=ZA:X=eX+1 

FORI=3T0O7? 
IFACII=SASSANDBCI)=S122THENACI)=57+2C#48:BC1I)=88+2D*x42:RETURN 
NEXT 

RETURN 

IFZB< >4ANDZB< >STHENRETURN 

2D=2:2C=2 

IFZB<4THEN2D=8:GOTO15898 
IFZB<?7THENZD=1 
IFZE=10ORZB=40R2B=7THENZC=8:G0T01688 
IFZB=-20R2B=50R2B=8THENZC=1 

z2E=2A 

FORI1=9T07 
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IFACTYI=STANDBCII=S164THENA(IY=57+2C448:BC1I)=89+2Dx42:RETURN 
NEXT 


RETURN 

IFZB< »5ANDZB< >7ANDZB< >3THENRETURN 

2D=2:2C=2:8=X+1 

IFZB<4THENZD=8:G60T016938 

IFZB<7THENZD=1 

IFZE=10RZB=40RZB=7THENZC=8:G60T01719 

IFZB=Z0R2ZB=SORZB=8THENZC=1 

ZE=2RA 

FORI=9T07? 
IFACIY)=1OSANDB<CI)= 164 THENACITI=57+2CK48:BCI)=830+2D 42: RETURN 

NEXT 

RETURN 

IFZB< >JEANDZB< >J8THENRETURN 

2D=2:2C=2:X=X+1 

IFZB<4THENZD=8:G60T0 1899 

IFZB<7THENZD=1 

IFZB=10RZB=40R2ZB=7THENZC=9:G0T01828 

IFZB=20R2B=50RZB=8THENZC=1 

2B=2A 

FOR1=8T07 

IFACII=S1SSANDB< I)= 164 THENACI)=57+2C#48:BC1)=80+2Dx*42:RETURN 

NEXT 

RETURN 

REM x%*%* SPRITE 1 x*% 
DATA124,9,98,131,192,8,64,62,0,48,1,192,14,0,690,1,249,3,0,17,0,98,24 
DATA144,9,6,72,9,1,244,09,0,34,0,9,33,8,8,17,0,8,15,89,8,1,0,0,1,8 
DATAB,3,8,0,4,8,0,8,9,0,7,0,8,1 

REM xxx SPRITE 2 xxx 
DATA28,0,0,34,0,9,33,9,0,16,192,0,3,96,9,1968,16,0,53,3,0,7,132,0 
DATA1,134,0,8,161,0,0,192,132,224,169,68,0,144,36,1,12,38,2,10,34 
DATA4,8,108,207,3,104,120,236 ,44 ,232,20,42,194,14,114,16,31,97 
REM *x%* SPRITE 3 xxx 

DATA ,0,3,0,0,2,0,0,6,9,15,196,0,16,62,0,96,37,90,65,128,8,159,8,8 
DATA161,120,1,78,134,1,146,134,0,35,9,0,33,8,9,65,3,0,65,9,8,65,6 
DATAB,1329,130,9,130,1082,8,133,120,9,133,3,80,69,8 

REM *%*%* SFRITE 4 xx%* 
DATA160,249,203,139,177,184,24,172,120,32,179,56,64,118,88,130,153 
DATA92,139,185,197,67,57,144 ,67,57,2098,82,58,249,82 ,25, ,232,172,11 
DATA2S5,94,4,08,152,4,128,19,196,60,7,132,64,7,9,0,6,244,8,3,4,8,12 
DATAS,3,24,2,9 

REM #%*%*k SPRITE 5 kik 
DATA128,0,9,128,0,112,64,0,80,64,9,80,128,8,112,123,9,30,0,0,8,8 
DATA ,48,0,0,64,0,0,32,9,0,16,252,8,96,2,0,0,1,8,112,0,123,32,8,128 
NATA32E.,9,128,32.0,128.32,1,0,2,1,0,112,2,0,64 

REM **%* SPRITE 6 xx 
DATAO,38,132,0,20,132,0,10,68,0,6,62,0,90,1,0,0,2,8,0,4,0,0,4,8,8 
DATA4 ,0,0,2,0,0,93,0,0,9,9,0,18,0,80,14,0,0,8,0,8,8,8,0,0,0,8,0,8,0 
DATAQ,®,0,8,0,8,8 

REM x%x%* SPRITE 7 xx% - 
DATA32,4,128,64,5,64,128,9,48,128,31,15,0,63,2,80,127,2,8,255,2,3 
DATA126,2,13,125,2,53,121,2,196,113,4,4,97,4,132,67,4,131,133,8,128 
DATA201,163,64,50,176,32,195,192,31,7,128,0,0,8,8,0,0,8,0,0 

REM xxx SPRITE 5 xx*% 

DATA4 ,0,96,3,9,64,48,0,112,192,9,0,0,0,112,0,0,90,0,80,112,0,8,36 
DATAD ‚9,38,0,0,0,0,0,32,8,0,32,0,0,32,0,0,32,8,0,32,8,0,0,0,0,58 
DATAB,9,30,9,0,22,0,08,80,0,8,80 

REM x%* VERTAUSCHEN DER SPRITES x*%* 
DATAS,3,4,8,1,6,2,7,-1,6,2,3,1,94,7,8,5,-1,8,3,5,8,9,6,7,1,-1 
DATA3,5,2,7,4,6,1,8,-1 . 
‚89,-1,7,2,4,6,1,3,8,5,-1,8,7,2,6,1,4,3,5, 1 


DATA2,3,7,5,1,6,4 

DATA? ,3,1,8,6,2,4,5,-1 

DATAG ‚,08,4,1,2,7,5,3,-1,8,2,6,4,5,7,3,1,-1,5,8,3,2,4,8,7,1,-1 
DATAS ,4,7,3,1,5,2,8,-1 

DATAG ,1,7,4,2,5,8,3,-1,1,7,6,3,2,5,4,8,-1,1,5,7,9,8,6,8,3,-1 
REM x#+%x ENDE xxx 


PRINT" Geppanpeppg" SPCC2ESI"SIE HABEN 


PRINTSPC (25)" ” 
PRINTSPC<2S)"ES GESCHAFFT 
PRINTSPC(25)* " 
PRINTSFC(2SI"IN "3837" » 


PRINTSPC (25) "BVERSUCHEN. 
PRINTSPC <ZS)"WNOCHMAL ? 
IFHI>XTHENHI=X 


Compube mik 
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23708 
2338 
23398 
2498 
2418 TR=INT(CRND<TIIK1SIxE 
2429 IFTR=8OTHEN2468 

2438 FORI1=8TOTR:READP NEXT 
294Qa REHDP:IFP=-1THENZ2469 
2958 GOTO2448 

24&9 FORI=8TO?:READP 

2478 ACI>=C(P) 

2430 B(CI>=D<(P) 

2438 NEXT 

2508 RETURN 

READY. 


GOT02378 


GETAS: IFAS="J" THENRESTORE :GOTO338 
IFAS="N"THENPOKEV+21,8:PRINT"QSBIS ZUM NAECHSTEN MAL !":END 


REM #*x* VERTAUSCHEN DER SPRITES xx% 


Bei dem Spiel THINK (eine Version von 
Superhirn) kommt es darauf an, eine vom 
Computer erdachte Farbkombination in 
möglichst wenig Versuchen zu erraten. 
Nach ca. 30 Sekunden erscheint das 
Titelbild. Wenn Sie nun eine Taste 
drücken, wird nach dem Schwierigkeits- 
grad (1 oder 2) gefragt. Bei Schwie- 
rigkeitsgrad 1 muß man eine Kombi- 
nation von 5 Steckern, die aus den Far- 
ben weiß, schwarz, rot, violett und türkis 
bestehen, erraten. Bei Schwierigkeits- 
grad 2 kommen noch die Farben grün und 
blau dazu. Um die Stecker zu setzen, ge- 
ben Sie jeweils den Anfangsbuchstaben 
der entsprechenden Farbe ein, achten 
Sie aber darauf, daß ein gesetzter 
Stecker nicht zurückgenommen werden 
kann. Nachdem der fünfte Stecker ge- 
setzt ist, folgt auf der rechten Bild- 
schirmhälfte die Bewertung wie beim 
Original-Spiel (schwarzer Stecker für 
richtige Farbe und richtige Position, 
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für den Gommodore 64 


weiße Stecker für richtige Farbe und fal- 
sche Position). Wenn die Kombination 
des Spielers mit derdes Computers über- 
einstimmt, ist das Spiel zu Ende und es 
folgt die Bewertung der Leistung. 


Programmaufhbau: 

80-90: Dimensionieren und festlegen 
der Variablen 

100-146: Neue Zeichen und Musikdatas 
einlesen, Titelbildaufruf 

150-162: Tastaturabfrage 

990-1900: Stecker zeichnen und Ton 
ausgeben 

2400-2700: Bewertung der Kombina- 
tion 

2800-3900: Schwarze Stecker zeichnen 
und Ton erzeugen 

4500-9900: Weiße Stecker zeichnen und 
Ton erzeugen 

9950-9999: Unterprogramm aufrufen, 
wenn Kombination erraten 
11000-12000: Spielfeld zeichnen 


Compute mi 


14990-16100: Frage nach neuem Spiel 
20000-22400: Wahl des Schwierig- 
keitsgrades 

60000-60500: Datas für neue Zeichen 
61000-62040: Datas für Lied 1 und 2 


Variablenliste: 

ZU: Nummer des Zuges 

Si: Basisadresse des SID 
FL,FH,TLTH,W,H,A,L: Einzelne Sound- 
adressen 

SW: Anzahl schwarzer Stecker 
X),Y{l),DEN: Noten für erstes Lied 
X2(1),Y2(1),D2(1): Noten für zweites Lied 
A$: Buchstabe der aktuellen Farbe 

F(N): Farbcode der aktuellen Farbe 

PS: Position des nächsten Steckers 
S{: Kombination des Computers 
RV,RF: Positions- u. Farbangaben für 
das Spielfeld 

GR,GRS: Schwierigkeitsgrad 
I,RR,B,Q,AA,BB: Zählervariable 
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5 REM OKRRHHREHH HH HR EHER RR 


iO REM ** ** 
2 REM *#* THINK ** 
14 REM ** *%* 
1& REM #* EINE VERSION DES SPIELES *#* 
18 REM #* *%* 
20 REM #* SUPERHTIRN *%* 
22 REM *# *%* 
23 REM OHREN NIE 
25 REM #* *%* 
26 REM ** ON: *x* 
28 REM ## OLAF AMBLANK ** 


56 REM ** x* 
37 REM OHREN EEE 


SO POKE549,1:REM #TASTATURFUFFER AUF 1* 

80 DIMX (50) ,Y(30) ,D(30) ,X2(15) ,Y2(15) ,D2 (15) 
90 ZU=1:51=54272:FL=SI:FH=SI+1: TL=SI+2: TH=SI+3:W=SI+4:H=SI+6:L=51+24 
100 FOKES3281,7:POKES3280,9 . 

1053 FRINT" RbePpppHRRN"SPC(7)"BITTE EINEN MOMENT GEDULD": REM"*%** P=COMMODORE+2" 
110 GDSUBS0000 

111 A=SI+5:5W=0 

115 FORI=1T030:READX (I) ,Y(I),D(I):NEXT 

116 FORI=1T015:READX2(I) „Y2(I) ,D2(I) NEXT 

118 GOSUE20000 

120 FORR=1TOS 

125 IFGR=1THEN132 

150 S(R)=INT(RND (1)*7)+0:60T0135 

132 S(R)=INT(RND(1)*5) +0 

138 S2Z(R)=S(R) 

140 NEXT 

146 SWw=0:PS=801 

147 GOSUB11000 

148 FORI=1TOS:REM ***%** 5 EINGABEN #x*** 

149 REM##*%*%*%* EINGABE KuanKnnnnHnEaHErr 

150 GETA$: IFGR=1ANDAS$< >"S" ANDAS< >" W" ANDAS< >"R" ANDAS< >" T"ANDAS< >"V"THEN1SO 
15 IFAS< I" S"ANDAS< >" W"ANDAS< >" T" ANDAS< >" V" ANDAS< >"G"ANDA$< >" B"ANDA&< >"R"THEN150 
152 IFA="S"THEN F(I)=O 

153 IFA£="R"THEN F(I)=2 

154 IFA$="W"THEN F(I)=1 

156 IFA="T"THEN F(I)=3 

158 IFA£="V"THEN F(I)=4 

160 IFAF="G"THEN F(I)=5 

162 IFA$="B"THEN F(I)=6 

990 REM#*#*%* KREISE POKEN KHK % 

1000 FOKE1024+PS, 65: POKESS296+PS,F(I) 

1010 FOKE1025+PS, 56: POKESS297+PS,F(D) 

1020 FOKE1026+PS,67:POKESS298+PS,F (I) 

1050 FOKE1064+PS,68: FOKESSSS6+PS,F(I) 

1040 FOKE1065+PS, 69: FOKESSS3S7+PS,F(I) 

1050 POKE1065+PS, 70: POKESSSIB+PS,F(I) 

1060 FOKE1104+PS,71:POKESS376+FS,F(I) 

1070 FOKE1105+PS, 72:POKESS377+PS,F(I) 

1080 FOKE1106+PS,73:FOKESS378+PS,F(I) 

1100 PS=PS+4 

1150 REM ***%** TON BEIM SETZEN #x#xxx%%* 

1200 POKEL ,15:POKEA, 16+9: POKEH, 4*16+4: POKEFH, 27: POKEFL,69: POKEW, 17 
1210 FORM=1T0300: NEXT:POKEW,O:POKEA,O:POKEH,O 
1900 NEXT 

2400 PS=824 

2450 REM ***%*%* VERGLEICH FUER KARRRRE 

2452 REM #***%* SCHWARZE STECKER #xxx%%%* 

2500 FORB=1T05 

2510 IF F(B)=S(B) THENS (BJ) =-1:F (B) =-2: SW=SW+1:GOSUBSZO00 
2520 NEXT 

2530 REM **#*%* VERGLEICH FUER KRERERK 

25351 REM ##**%*%* WEISSE STECKER ##*%%%% 

2532 FORAA=1T05:FORBB=1TO05 

2550 : 

2551 IFFtAA)=S (BB) THENGOSUBS000 

2580 NEXT:NEXT 

25853 s 

2590 G0TO4500 

2700 PS=824 

2800 REM#*#*%*%* SCHWARZE UND WEISSExRx##x%* 

2801 REM***** STECKER POKEN KRRRRR 

5000 FOKE1024+PS,74: POKESS296+PS,O 

5010 POKE1025+PS,75:POKESS297+PS,O 

5020 FOKE1026+PS, 76: POKESS298+PS,O 

5030 FOKE1084+PS,77:POKESS336+PS,O 

5040 FOKE1065+FPS,78:POKESSS37+FS,O 

>050 POKE1086+PS,79:POKESS3IS+PS,O 

=060 FOKE1104+PS,80:POKESSS76+PS,O 

5070 FOKE110S+PS,81:POKESS377+PS,O 

3080 POKE1105+PS, 82: FOKESSS78+PS,O 


3500 PS=PS+3 
© 
Compube mi 


3. Oktober "84 


3550 


3800 
Is610 
3700 
4500 
S000 
5009 
SO10 
SO2O 
SO3Z0O 
SO40 
SoS5o 
5050 
S5a70 
SUBO 
5100 
SzZU0 
5210 
S?00 
s000 
FF7GO 
9950 
97990 
77972 
9995 
99997 
10999 
11000 
11003 
x" 
11005 
11010 
11012 
11013 
11020 
110721 
11025 
11026 
110627 
11030 
11034 
11040 
11050 
11080 
11070 
11080 
12000 
1499G 
15000 
15005 
15007 
15010 
15020 
15020 
15040 
15050 
15080 
15070 
15030 
15090 
15100 
15200 
;:NEX 
15300 
SS10 
15320 
165000 
18100 
15110 
168120 
15125 
7a" 
168130 
16135 
168140 
168150 
15160 


Z0010 FRINT" 
20012 FRINT" — 
20013 PRINT" == ren 
20014 FRINT" — 

20015 FRINT" — 


REM #*#*#** TON FUER SCHWARZ #####%*%* 
FPOFEL ,15:POKEA, 16+9:POKEH,4*%16+4:POKEFH, 69: POKEFL,157:POKEW,17 
FORM=1T0300: NEXT: FOKEW,O:POKEA,O:POKEH,O 


RETURN 
GOTOSH0O 
S(BB)=-5:F(AA)=-7 
FOKE1024+PS,74:POKESSZI6+PS,1 
POKE1G02S+PS,75:POKESS297+PS,1 
FOEKE1026+PS,76:POKESS29S+PS,1 
FOHE1084+PS,77:POKESSISS6+FS,1 
FOEE1065+FPS,78:POKESSSSI+PFS,1 
FÜOKE1US8+FS5,79:POKESSSSBS+FS,1 
FOKE1104+FS,80:POKESSIST76+PS,1 
FOKEL1OS+FS,81:POKESSS77+PS,1 
FOFE1106+PS,82:FOKESSS7B+FS,1 
"5=FS+3 


FOHEL , 15: FOKEA, 16+9:FOKEH,4*%16+4: FOEKEFH, 159: FOKEFL,S9: POKEW,17 
FORM=1TOS00:NEXT:POKEW,O:FOKEA,0:FPOKEH,O 


RETURN 
FOKE214,20: FRINT" GE pp II" 


FORR=1T05:S(R)=S2(R) :NEXT: ZU=ZU+1 
REM##%*#%* RICHTIG KHK 


IFSW< >5STHEN145 
FORD=1T010:FORI=1T015:FOHKESSZ 
GSOTO1S000 

END 


REM*#**%*%* SPIELFELD ZEICHNEN ###x*#* 


RV=1824:RF=56096 


FRINT' IE IIETPEPIPPPPIPEPII PR"; ZUSPRINT" BI" SREM"ZI*U, 


FOKERV , 93: POKERF ‚OÖ: POKERV+40 , 93: POKERF+40 ,0:POKERV+80 , 73: POKERF+80,0 


FOKERV+120,93:FOKERF+120,0 


FORN=1T039: FOKERV+120+N, 64: POKERF+120+N,O: NEXT 
FOKERV+140, 91: POKERF+140,0: POKERV+143, 91: POKER+143, 
FORN=0T02: POKERV+2O+N#40 , 93: FOKERF+20+N*40 ,0: POKERV+23+N*40 ,93 


FOKERF+2I3+N*40 ,0: NEXT 
FOKERV+S9 „II:FOKERF+S39 „OÖ 
FOEERV+79 „II:PFOKERF+79 ,O 
FOKERV+119 „IS:POKERF+119 ,„O 


POKERV+120 „107:FOKERF+119 ,„O 
FOKERV+159 „11S:FOKERF+1597 „O 


IFZU< >1 THENRETURN 


FOKERV-40,112:FOKERF+40 „O:FOKERV-1,110:FOKERF-1,0 


FORI=39TO2STEP-1:POKERV-I,64: 


POKERV-20 ‚„114:POKERF-20 ,O 
POKERV-17 „114:POKERF-17 ,O 
RETURN 


POKERF-I,O:NEXT 


REM *#%*#** RICHTIG (+BEWERTUNG) #*%* 
ZU=ZU-1:FOKESS280 ,0:POKESS281,0:PRINT"L" 
FORI=1TD 8:PFOKE645, 1: PRINT" #*%* THINK #***** THINK #%*%*#%*%* THINK *#%*#"5; NEXT 


FOKE646,7 


FRINT"W SIE HABEN DEN FARBCODE IN ";ZU 
FRINT"IEBREERERERNVERSUCHEN ERRATEN." 


FRINT"LEBbBEBBBEIDAS IST "; 


IFZU=1THENFRINT"REINER ZUFALL.":GOTO15200 
IFZU< 4THENPRINT"SEHR GUT.":GOT015200 
IFZUXZ&THENFRINT"GUT. ":60T015200 

IFZU£ STHENPRINT"GANZ PASSABEL. ":GOT015200 
IFZU< 10OTHENFRINT"MITTELMAESSIG. ":60T015200 
IFZU<X ASTHENFRINT "SCHLECHT. ":GOTO15200 
IFZU>1STHENFRINT"FRUSTRIEREND SCHLECHT." 
FRINT:FORI=1TO 8:FOKE6458,I:PRINT" *** THINK #***%*# THINK **#**# THINK #8*%*" 


T 


80,I:NEXT :NEXT:FORI=1TO1000:NEXT 


FOKEL,15:FOKETH,13:POKETL,15:POKEA,S#16+15:FOKEH,S+16: ZU=1 
FORI=1T015:POKEFH,X2(T) :zPOKEFL,Y2(I) :POKEW,17 
FORT=1TOD2(I)STEP.&:NEXT:FOKEW,O 

REM GETA$: IFAF< >" "THENFOKESS28O, 9: POKESS281,7:60T0117 


NEXT 


REM ##*** NEUES SFIEL KHK K88% 


FORI=1T0S5GO:NEXT 
FRINT"EÜPPPIPPPE,LEPIDIT) 


PRINT" WOLLEN SIE NOCHEINMAL (J/N) “s 


FORI=1T040: PRINT" "3:NEXT 
GETA£: IFA$=""THEN16140 


IFA£="J" THENFOKESS280 ,9:POKESS281,7:G60T0118 
FRINT"ILEDPBEENIELEN DANK FUER DAS SCHOENE SPIEL.":zEND 
20000 FRINT"LANELRNG3" REM" RR 780, 


20016 PRINT" 


ZO020O 
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ETRL+S" 

— 7m m :REMRRRRR 

m m NE REMERRRR 
— ":REMARRRR 

":REMFARRRK 

ae — u it: REMERIRH 


—— im 


FRINT"LIERERRERBE EI BY OLAF AMBLANK" 
20100 FRINT"EII ED #i- ad #i- 5 #i=- a 2l- 3 2I- D #l- G #I-":REM# SHIFT+A+B+C 
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SHIFT+E 
SHIFT+E 
SHIFT+E 
SHIFT+E 
SHIFT+E 


20 


";zREM "1 
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80016 DATA 71 


MN I AN [77 D 
0% | ei, 


zo110 FRINT" 2 mm a tn ET TE EREMARRER  SHIFT+D+E+E 
20120 FRINT" Dim aik Bihk ib Ai DI DB I iIn"sREMe#R&# SHIFT+G+H+I 
20130 FRINT "mm mann anna 1  REMEHRHH  SHIFT+E 
20140 PRINT "rigen nn —gtsREMt# SHIFT+E 
z02un FRINT'ai BG Be a #i- God» ie A Bi Do tie DB 2i=-":REM ** SHIFT+A+B+C 
20210 PRINT" DE TE m I REMHRRRR  SHIFT+D+E+F 
20220 FRINT" Bik Ik Biha I All Billa B biIn":REMRRRRK  SHIFT+G+H+I 
20250 FOHEL,15:FOKETH,13:POKETL,15:FOKEA,S%16+15: POKEH,5%*16 

20260 FORI=tT030: FOKEFH,X (I) :POKEFL,Y(I) :POKEW,17 

20270 FORT=1T0OD(I)STEF.S:NEXT :FOKEW,O 

20280 GETAF: IFA“ >" "THENZ1000 

20270 NEXT 

20295 FORI=1T0S500: NEXT: GOTO20250 

20390 
21000 LIILPPPPPPIRPRPERPIN" z FORI=1TO180:PRINT" "32 NEXT:FRINT:REM "18x" 
21010 PRINT"OII Ds WELCHER SCHWIERIGKEITSGRAD (1/2)" 

21020 GETGR$: IFGR$=""THEN21020 

21030 IFGRE< >" 1"ANDGR$< >" 2" THEN21020 

21035 IFGR£="2"THENGR=2 

21040 IFGRE="1"THENGR=1 

22400 FRINT"aL":FOKESS281 ,7:POKESS280, 9: RETURN 

59999 END 

60000 REM **#**#** NEUE ZEICHEN DEF.x**%** 

60001 POKES6334 ,PEEK (56334) AND254POKE1,PEEK(1)AND 251 

60002 FORI=O0T01022:POKE12288+1 ,FEEK (53248+1) : NEXT 

80003 POKE1,PEEK (1) OR4: POKES6334 ,PEEK (56334) OR1 

60004 FOKESS272, (PEEK (53272) AND240) OR12 

60005 READA: IFA=-1THENRETURN 

600056 FORJ=OTD7:READB: POKE12288+A*8+J ,B:NEXT:GOTO 60005 

60010 DATA 65 0, 3, 7, 15, 31, 63, 127, 127 

60011 DATA 66 126, 255, 255, 255, 255, 255, 255, 255 

60012 DATA 67 0, 192, 224, 240, 248, 252, 254, 254 

60013 DATA 68 127, 255, 255, 255, 255, 255, 255, 127 

60014 DATA 69 255, 255, 255, 255, 255, 255, 255, 255 

60015 DATA 70 254, 255, 255, 255, 255, 255, 255, 254 

127, 127, 53, 31, 15, 7, 3,.0 

255, 255, 255, 255, 255, 255, 255, 126 

254, 254, 252, 248, 240, 224, 192, 0 

Ö,. 0, i 

0, 0, 0, 0, 0, 126, 255, 255 

0, 0, 0, 0, 0, 0, O, 128 

Se 4, Fa Te 72a 3 

255, 255, 255, 255, 255, 255, 255, 255 

192, 224, 224, 224, 224, 224, 224, 192 

1, 0, 0, 0, 0, 0, 0, © 

255, 255, 126, 0, 0, 0, 0,0 

129, 0, 0, 0, 0, 0, 0,6 

60, 66,157,161,161,157,66 „60 


680017 DATA 72 
60018 DATA 73 
60019.DATA 74 
60020 DATA 75 
60021 DATA 76 
60022 DATA 77 
60023 DATA 78 
60024 DATA 79 
60025 DATA 80 
60025 DATA 81 
60027 DATA 82 
60028 DATA 43 
60119 DATA-i 
60500 RETURN 
61000 REM *%* MUSIK IKK KRHKRRE HERE 
61010 DATAS2,219,250,39,18,125,39,18,125,52,39,125 
61020 DATAS2,39,125,65,181,250,78,36, 62,69,157,62 
61050 DATA78,36, 62,69,157, 62,58,1358,125,78,36,62 
61040 DATA&9,154, 62,78,36,62,69,157,62,58,138,125 
61050 DATA32,219,250,39,18,125,39,18,125,52,39,125 
61080 DATAS2,39,125,65,181,250,78,56, 62,69,157,62 
61070 DATA78,36,62,69,157, 62,58,138,125,58,138,62 
&1080 DATA&S5,181,62,52,39,350 
82U0C REM ##* MUSIK DRAHRKRKRREREhERrr 
62010 DATA21,237,250,21,237,250,23,59,250,26,20,250 
62020 DATA26,20,250,23,59,250,21,237,250,19,137,280 
2030 DATA17,103,250, 17,103,250, 19,137,250,21,237 
62040 DATA2SO ‚21 ‚„2537,450,19 ‚137 ‚125, 19,137,500 
63300 REM *##%*# E-N-D-E KHRHKHHaRERERERr 
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READY. 


An alle Hobbyprogrammierer, Berufs-Programmierer, Datenprogrammierer, Textverarheiter, Elektro- 
niker, Tele-Spieler, Informatiker... 


Haben Sie selbsterstellte Spiel- oder Anwenderprogramme für den Commodore C-64 und VC-20 - dann schicken Sie sie an 
den ROESKE-Verlag, Fuldaerstraße 6, 3440 Eschwege - und Sie können sicher sein, das Ihr Programm, nach qualitativer 
Beurteilung und dementsprechender Honorarfestsetzung (welches bis zu 150.- DM und mehr pro gedruckter Seite im Heft 
betragen kann) schon in einem der nächsten Hefte abgedruckt wird. 

Bedenken Sie, daß wir zur Zeit 7 Hefte pro Monat herausgeben - Homecomputer und CPU erscheinen monatlich, Compute 
mit Commodore erscheint wöchentlich - das heißt, daß wir jeden Monat circa 56 Programme allein für den Commodore 64 
und den VC-20 für unsere Leser abdrucken! 

Rechnen Sie sich Ihre Chance aus, um auch als freier Mitarbeiter an unseren Zeitschriften mitwirken zu können. 
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Teil ö 


Logik im Basic-Programm 


Wie man Systematik in sein Selbstgestricktes bringt 


Während wir in den ersten Folgen stets am Rechner arbeiteten und anhand kleinerer Un- 
ternehmungen erste Erfahrungen im Programmieren sammelten, müssen wir heute ein 
bißchen Theorie einschalten, um uns auf die vor uns liegenden größeren Aufgaben vorzu- 
bereiten. Wenn wir bei der Lösung komplexerer Probleme nicht wahllos an’s Werk ge- 
hen wollen, müssen wir Methoden ins Spiel bringen, die den Aufbau unserer Listings von 
Anfang an systematisieren. 
Ich gebe zu, daß sich das so dahin gesagt recht schwierig anhört, doch werden wir sehen, 
daß richtig aufgezäumt das Pferd schon wesentlich bessere Startchancen haben 


wird. 


Wir wollen uns daher ein paar 
Gedanken über das Program- 
mieren machen, weil man nur 
dasjenige gut tun kann, was 
zuvor auch verstanden ist. 
Sehen wir uns also einmal an, 
wie ein Programm entsteht. 


1. Das Problem: 

Ohne Problem, ohne Frage- 
stellung, wird in der Regel 
kein Programm zustande 
kommen: zuerst ist da eine 
Aufgabe, die es mit Hilfe des 
Computers zu lösen gilt. Die 
Vorbereitung dieser Lösung 
ist ein geistiger Prozess, der 
umso langwieriger ist, je 
weiter das Problem im 
menschlichen, kreativen Be- 
reich angesiedelt ist, d.h. je 
weniger es sich durch mathe- 
matische Formalismen be- 
schreiben läßt. 

Da aber ein Computer nicht 
etwa ein künstliches, doch 
von höherer Macht mit über- 
menschlicher Intelligenz aus- 
gestattetes Wesen ist (wie 
mancher Laie auch heute 
noch meint), sondern ein Ap- 
parat, der lediglich unter Zu- 
hiifenahme elementarer logi- 
scher Verknüpfungen eine 
Folge von Primitiv-Handlun- 
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gen ausführt, ist es Aufgabe 
des programmierenden Men- 
schen, sich erstens über das 
Problem und seine Strukturen 
bewußt zu werden und es 
zweitens sprachlich zu über- 
setzen. Somit dürfte die er- 
ste Frage des Program- 
mierens die nach der Art des 
zu bewältigenden Problems 
sein. 

Er stellt sich dann die Er- 
wartungen zusammen, die er 
in die Lösung durch den Rech- 
ner setzt: Was soll mein Pro- 
gramm leisten?- Was muß es 
alles machen, damit mein 
Problem gelöst bzw. gemin- 
dert wird? 


2. Der Plan: 

Nun wird in Form einer Skizze 
oder eines Struktogrammes 
ein Plan erstellt, der die ver- 
schiedenen noch ein wenig 
durcheinander gewürfelten 
Punkte zu einem logischen 
Ganzen ordnet. Dabei ist es 
durchaus nicht möglich, ein- 
zelne Bezirke abzuspalten, 
um sie quasi als Sonderfälle 
in späteren Teilprogrammen 
getrennt zu bearbeiten. Die- 
ser Plan kann zu einer detail- 
lierten Beschreibung, aber 


auch in einer Grafik oder ei- 
nem Struktoprogramm beste- 
hen. 


3. Der Algorithmus: 

Aus dem im Plan enthaltenen 
Lösungsentwurf wird dann 
durch Präzisierung und Ab- 
fassung in einer dem Com- 
puter verständlichen Sprache 
der eigentliche Programm- 
ablauf entwickelt, d.h. die 
Folge aller vom Rechner ver- 
wertbaren Programmierbefeh- 
le. 

Dabei ist der Erfolg des jewei- 
ligen Programmes maßge- 
bend durch die Qualität des 
Programmierens, aber auch 
der Maschine bestimmt. Wir 
können den Algorithmus als 
Gradmesser für die Kompro- 
mißfähigkeit des jeweils Pro- 
grammierenden ansehen — 
Kompromiß dergestalt, daß 
vom menschlichen Partner 
verlangt werden muß, daß 
dieser mit der Darstellung der 
Befehlsfolge auf die Ebene 
der Maschine "Computer” hin- 
absteigen kann. 


4. Die Eingabe 
Das Eintippen eines Program- 
mes ist sicher der lästigste 
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Teil der gesamten Program- 
mierarbeit. Dennoch stellt es 
einen wesentlichen Schritt 
dar, nicht zuletzt deshalb , 
weil sich während des oft 
langwierigen und monoton- 
stumpfsinnigen Vorganges 
leicht Fehler einschleichen, 
sei es, daß der Programmierer 
die Tastatur nicht beherrscht, 
sei es, daß es an der nötigen 
Konzentration mangelt. 


5. Die Prüfung: 

Programme, die geschrieben 
und eingetippt werden, ge- 
startet und dann fehlerfrei auf 
Anhieb abgearbeitet werden, 
sind höchst selten. In 99,9% 
aller Fälle beginnt nun erstein 
besonders nervenaufreiben- 
der Abschnitt, nämlich die 
Fehlersuche. 

Zunächst ist die völlige 
Identität des gespeicherten 
Befehlsvorrats mit den 
handschriftlichen Unterlagen 
zu prüfen, damit wir sicher 
sein können, daß nicht ein un- 
Sinniger Tippfehler Schuld an 
unserem Maleur ist. 

Die im Interpreter "festver- 
drahteten” Fehler-Meldungen 
können hier nur bedingt als 
Orientierungshilfe dienen, da 


57 


sie auch indirekt verursacht 
werden können. 

Wenn wir sicher sind, keinen 
Eingabefehler gemacht zu 
haben, nehmen wir uns das 
abgespeicherte Listing Zeile 
für Zeile genau unter die Lupe 
und überlegen zu welchen Er- 
gebnissen die jeweiligen An- 
weisungen, angeforderten 
Daten und Rechenoperatio- 
nen führen. Eine Vielzahl von 
Fehlern kann auf diese Weise 
erkannt und berichtigt wer- 
den. Wunder wirkt auch bis- 
weilen die Unterstützung eines 
anderen: wenn man sich mit 
einer bestimmten Proble- 
matik über lange Zeit hinweg 
intensiv beschäftigt, wird 
ganz automatisch der Blick- 
winkel eingeengt. Logische 
Fehlleistungen können dann 
selbst kaum noch gefunden 
werden, während ein außen- 


16 POKEI6378, 15 
15 DIMAS9) :DiMB<7,9) 
25 POKESE379,25 " 
zi FRINT"T":FORA= 
Sg PRINT'aN x 
Si FORB=1TOSUG: NEXT 


stehender Beobachter manch- 
mal auf den ersten Blick das 
Richtige trifft. 


6. Der erste Lauf: 

Irgendwann- manchmal dau- 
ert es Wochen, ja Monate — 
ist dann der Augenblick ge- 
kommen, in dem das selbst 
erstellte Programm von An- 
fang bis Ende läuft. Sofern ir- 
gend möglich auch jetzt noch 
gewisse Vorsicht walten las- 
sen und mit Daten arbeiten, 
deren "processing” man zur 
Not mit Papier und Bleistift 
nachverfolgen kann. Es pas- 
siert bisweilen, daß ein Pro- 
gramm anscheinend wun- 
derbar funktioniert, Werte an- 
fordert, verarbeitet und auch 
Ergebnisse ausspuckt: beim 
zehnten oder gar erst zwan- 
zigsten Durchlauf stellt man 
durch Zufall fest, daß die 
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Resultate teilweise oder auch 
immer unsinnig sind. 


Die Optimierung: 

"optimus” ist lateinisch und 
bedeutet "der Beste”. Und 
weil jeder Programmierer von 
Natur aus Perfektionist ist, 
gibt er sich mit der erstbesten 
Lösung nicht zufrieden son- 
dern versucht, sein Werk zu 
vervollkommnen. Dabei kön- 
nen verschiedene Kriterien 
eine Rolle spielen, je nach- 
dem, für wen bzw. was unser 
Programm taugen soll. Solche 
Optimierungs-Gesichtspunkte 
können zum Beispiel sein: 

— höhere Auflaufgeschwindig- 

keit 

— bessere Bedienerführung 

- geringerer Speicherumfang 
- extreme Rechengenauigkeit 

USW. 
Allgemein verbindliche Grund- 


Inn — en 


gewinnt 


für den VG-20 ohne Erweiterung 


sätze gibt es nicht: dem Pro- 
grammierer (bzw. dessen 
Auftraggeber) bleibt es über- 
lassen, in welchem Bereich 
Schwerpunkte zu setzen 
sind. 
Erst dann, wenn ein Pro- 
gramm alle sieben Etappen 
mit Bravour genommen hat, 
darf es als rundherum gelun- 
gen archiviert werden. Ein 
Tip: auch bei Ihrer normalen 
Gebrauchssoftware sollten 
Sie sich nicht mit Halb- oder 
Mittelmäßigkeiten zufrieden 
geben. Das Tüfteln und Aus- 
feilen sollte erst dann ein 
Ende haben, wenn Sie sicher 
sind, alles Ihnen und Ihrem 
Commodore Mögliche zur 
Optimierung getan zu haben. 
(sk) 


[2 


73 


& FRINT" TISdeada — 


FRINT"I":FOR 
PRINT" TAA 
V=INTRND<LIKZD+L 

PRINT"B aN.i SPIELT MIT *%’ 
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AN.Z2 SPIELT MIT 70°" 


TA-RFINF! AUSRIELER N. "V"BEGINNTICEMEZZU 


PRINT" ISBEHPRICGRAMM VON: @" 
FRINT' REBLBRAINER BURKL" 
FRINT' AISBERBEBBENND" 
FRINT" ARBBISLIVIER PROBST" 
FRINT"AIOBBBABH- TASTE -" 
GETCH: IFCH=""THENdS 


PRINT"IBREBEII — | 
FRINT"IBBBRURUTTDARTISENIIKTEN 
GETLE: IFCHSD" WM" THENIO 


5 FRINT'SSESPIELER N. "V"IST DRAN" 
PÜKET?FEE. 55+Y 


PRINT " AK aelelAATRLAUANATUENACHIP IN KOLONNE? 
EDs=ks:Kgat" 

GO2UB2U08 
KESLEFTSCKE, 1) :K=VALCKS) 'K=K-1: IFKS=""GOTOSOO 
IFK<OORKITGOTOGER 

IFACKI+LISCOTLSER 


Sa ACKISACKIHL 


BCK,RACKII=V:COTGL79 


3 PORESIGI+KRZAHRACK) , B5+V 


C=ACK) :Z=K 
6=6: 1IFC=15070295 
IFG=360T0959 
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WITT TER 


Das Spielfeld umfaßt 7 Spalten und 6 Reihen, besteht 
insgesamt also aus 42 Feldern. Die Spalten sind von 
links nach rechts mit 1 bis 7 numeriert. 


Zwei Spieler sind abwechselnd am Zuge. Jeder Spie- 
ler besitzt 21 farblich gekennzeichnete Spielsteine 
(im obigen Schema durch unterschiedliche Schraftie- 
rung gekennzeichnet). Ein Zug besteht darin, einen 
Spielstein von oben in eine Spalte zu werfen, d.h. eine 
Spalte wird immer von unten aufgefüllt. 

Jeder Spieler muß nun versuchen, vier eigene Spiel- 
steine waagerecht, senkrecht oder diagonal in einer 
Reihe anzuordnen. 


Ss 


1 2 3 


5 6 7 
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rot 
FESEN 


IFC-1<060T0295 
IFBEZ,C-13=VTHENG=G+L:C=C-1:60T0195 
LAK): Z=K:6=8 

IFZ=9G0T0225 


S IFG=350T0559 


IF2+1>70070225 
IFB(Z+i.CH=VTHENG=G+ 225241: 60710215 
C=RiK}: Z=k REMLR 

iFZ=7GOTO245 

IFG=3G0T0950 

IFZ-1<8G0T0245 
IFBCZ-1.Ch=YTHENG=G+1:2=2-1:G0T0238 


243 CahiK):ZeKi6=d ; 


25 GOTI2S 


IFG=56010958 

IFZ-1SBORCHLPFEOTOZES 
IFBSZ-1,C+13=VTHENG=G+1:2=2-1:6=C+1:60700259 
L=fAtK):Z=K 

IFG=350T0952 

IFZ+I>7ÜRC-LSEGOTOEES 
IFBEE+L.C-LI=VTHENG=GHI  Z=Z+r1:0=6-1:60T0270 
C=RiK):2Z=K:6=0 

IFG=35010350 

IFZ-ISOORC-1P7EOTGSES 

IFBLZ-I 0-3 =VTHENG=G+L :2=2-1:0=6-1:G0T0259 
E=AtK):Z=K 

IFG=36G0T0250 


iFBAZ+HL, CH I=YTHENGSG+1 23241 :0=C+1: 6070318 


FIKESES7B. 15 


3 FÜRT=1T08:READZ:POKESESTE.Z:FORE=ITOIEO: NEATE 
* IFT=S20T0439 
4 FÜKE3ES78,8:FORT=ITO7E:NEATTST 


FORT=ISTOISTEP-1POKESS878, T:FORESITOF:NEATE,T 


1 POKESSSTE,E 


GOTISILEE 


1 PRINT" WEREIEEEF ER AH EE ER" ; :FORT=1T018 


FÜKESSE?E. 247 FORE=S1TOLSO: NEXT: POKESESTE, A: NEHTT 
PRINT"B AD AD I ID ID &" 
SOTOFS 


FRINTCHREZASSIFVSLTHEHFRINT"SSFIELER N. MIT DEN x’ CHIPS HAT GEMONNEN" : 


GOTOFAG 


Et] 


1923 


FRINT"SSPIELER N.2 MIT DEN 0% CHIPS HAT GEWONNEN" :GOTO4AR 
END 
FEIN" ME Tr ii ı 1 11 It" 


ieia PRINT" II I I I I I IA HÄm De 1a I I: se Dass Ba a ES 


‚c22 
iasa 
ia 
1959 
Lac 


PRINT Aa TITTTTEITE Dun vun ana mau m mu mus urn Di 
FEIN" I ii a a A Hm ‚U ae be u Eu Eu Be 
FRIHT At BER A:L ta" 
PRINT" LEI LEN A 

PRINT" 123456 7 8":RETURN 
GETR$:Z=PEEKTS71SE) 


3 IFAg="F"THENKE="":GOTOIS 


2028 IFASCH""TRENIFRSCCRSISLSTHENRETURN 
2030 1FZC>2SIGOT02998 
949 K$=KS+AS:PRINTAS; 


GOTI2929 


RE=RISHTFINE, 1) 

KrakfHn$ 

FRINTOS; :GOTDZEGO 

IATA215. 239,209, 215. 207,228, 228,221 


za 


2 

2950 

usa Z=255-2:9=-t LG DI /LICCH I: AOL OE=STRECR) 
2893 

2655 

2 


a PINE32879.8 


za PRIHT" TIRHSRLSTERTLERIESERIEERRREBEIIASNCCH EINMAL ? acSzND" 
s21a GETAF: IFAF=""THENSZIG 
3220 IFA$="J"THENRUN 


5 IFAt="N"THENdEgO 


3239 GOTI3218 

4698 PRINT" " :FORI=LTO3AG:PRINT"DIYEDANN EBEN NICHT.IKCCANEKERBSEERIEUEREEERENN. 
dEct"; 

4219 PRINT" @OI>HDANN EBEN NICHT. .IKCCHANEBEBERSREBGTUBGERIHELEBE" ; :NEXT:END 
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- Assemblerkurs 


Teil 5 


In diesem Teil werden wir zeigen wie man den Bildschirm löscht und 
Programme optimiert. Außerdem zeigen wir Ihnen wie man 
Programme schreibt, die sich selbst modifizieren. 


Um beim Editor eine Hardcopy des Bildschirms zu bekommen, 


ergänzen Sie bitte den Editor um folgende Zeilen: 


235 IFA$="T" THENGOSUB 1 1988:60T02089 


READY. 


11889 OPENA,4 
119005 FORY=1T0325 
11818 acz="" 
11028 FORWU=1TC4O 


11839 GOC=PEEK<10824+(V-1)x40+ W-1) 


11833 
11835 
11242 NEXTW 

11858 PRINT#HS ‚,0C$ 

110568 NEXTV 

110709 CLOSE4 

110830 RETURN 

11188 REM.SETI -> Ascıı 


Geben Sie nun, wenn der 
Computer nach dem Befehl 
fragt, ein ”T” ein, so erhalten 
Sie auf dem Drucker eine 
Bildschirmcopy. 

Geben Sie nun folgendes Pro- 
gramm ein und lassen Sie es 
assemblieren. Was passiert?. 
Nun das können Sie selbst 
mit einem Sys 828 testen. 


iDFILE Eau 1824 

& ORG 823 

3 LDA #32 

4 LDS #8 

SLABI stA DFILE,X 

6 INS 

L; CPX #D 

3 BNE LABI 

9LAB2 STA DFILE+255,*8 
19 INS 

11 CPX #9 

12 BNE LAB2 

13LAB3 sta DFILE+512,% 
14 INS 

15 CPX #8 

16 BNE LAB3 

17 LDY! #232 

1SLAB4 SsTA DFILE+768,8 
18 DER 


IFOC<123THENGOSUB 1 1180: QC$=QC$+CHRS&COC) 
IFGC>127THENGOSUB 12088 


28 CPX #98 
el ENE LAB4 
28 RTS 


Na, was passierte? Richtig 
der Bildschirm wird gelöscht, 
aber wie funktioniert das? Wir 
werden sehen. 

Wir fangen mit dem 
1.Befehl an 

DFILE EQU 1024 

Dies ist ein Pseudobefehl für 
den Assembler. Er soll ein La- 
bel anlegen, d.h. jedesmal 
wenn ich die Adresse DFILE 
benutze, wird automatisch 
1024 dafür eingesetzt. 
(DFILE ist die Abkürzung für 
Display File) 


Der 2. Befehl 

ORG 828 

Dies kennen wir schon aus 
unserem letzten Kurs. Das 
Programm soll bei Adresse 
828 beginnen. 


IFOC<S2THENAC =0C+64:G0T011134 
IFGC IESANDAC <SSTHENGAC=0C+32:G0T011134 
IFOC YSSANDAC < LZESTHENGC =OC +64 


RETURN 

REM REVERSE 
AC$=ÜCZ+CHRS$(27) 
ACz=ocH+"g" 
ac=oc-128 
GOSUEB11198 
OC$=AC$+CHRS(OC) 
OCF=-AC$+CHRS$S(C2?) 
[efo£ Ziefee 203 1 
RETURN 


Der 3. Befehl: 

LDA #32 

Dieser Befehl lädt in den Akku 
32. 


Der 4. Befehl 

LDX #0 

In das X-Register wird eine 
0 geladen 


Der 5. Befehl 

LABI STA DFILE,X 

Das LAB1 ist ein Label. Dies 
bedeutet, daß man umbis hier 
zu springen nur noch LAB1 
als Adresse eingeben muß. 


Nun zum STA DFILE,X 

Dies ist ein schwieriger Be- 
fehl. Das STA bedeutet Store 
Akku; na gut aber wohin. 
Natürlich nach - DFILE,X. 
Aber was bedeutet das? Ganz 
einfach: Zu der Adresse 
DFILE addiert man den Inhalt 
des X-Registers und schon 
hat man die Endadresse. 


Compuhe mi 


Endadresse = Basicadresse 
+ Inhalt von X-Register 
(Index) 

In unserem Beispiel: Beim 1. 
Durchlauf steht das X- 
Register auf 0, (siehe vorheri- 
gen Befehl). Die Basicadresse 
ist DFILE, also 1024. Nach 
unserer Formel: 

Endadresse = 1024 + 0 

also 1024 

Es wird in die Endadresse 
1024 der Inhalt des Akku 
(32) gebracht. 32 bedeutet 
ein Space. Die 1. Bildschirm- 
adresse wird gelöscht. Das 
Ganze nennt manübrigens In- 
dizierte Adressierung. 

Nun weiter: INX 

Dies bedeutet des X-Register 
wird inkrementiert. In Basic 
würde man folgendes schrei-, 
ben: X=X+1. Der ent- 
sprechende Gegenbefehl 
heißt übrigens DEX (X=X-1 


Der 7. Befehl 
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CPX #0 

CPX# Vergleiche der X- 
Register mit nachfolgendem 
Wert, nämlich mit 0. Beim 1. 
Durchlauf steht das X- 
Register nach dem Inkre- 
mentieren auf 1. Der 1. Ver- 
gleich endet also mit ”un- 
gleich”. Dazu gibt es ein Bit 
das gesetzt oder rückgesetzt 
wird, je nach Vergleichsaus- 
gang. Dieses Bit ist das Zero- 
Flag. Es ist gesetzt als 1, 
wenn beide Operanden, also X- 
Register und der folgende 
Wert gleich sind. Der nachfol- 
gende Befehl fragt dieses 
Bit ab. 


BNE LABI 
BNE bedeutet Branch on not 
equal — auf deutsch; Springe 
wenn ungleich. Nun, es ist un- 
gleich. Springe also zu der 
Adresse LAB1 zurück. Nun 
kommt wieder der indizierte 
Befehl. Dieses Mal steht aber 
das X-Register nicht auf 0 
sondern auf 1. Die End- 
adresse ist also 1024 +1 = 
1025. Danach wird das X- 
Register wieder inkrementiert 
usw. bis das X-Register auf 
255 steht. Bei einem erneuten 
Inkrementieren steht das X- 
Register wieder auf 0. 255 
dezimal = 1111 1111 binär. 
Zählt man nun 1 dazu erhält 
man folgendes 
IM TEN 

+ 0000 0001 

= 10000 0000 


Da das X-Register aber nur 8 
Bit besitzt, sitzt darin nur 
0000 0000. Die "herausfal- 
lende” 1 wird in den soge- 
nannten Carryflag (Über- 
tragflag) übernommen. 
Auch diese könnte man mit 
einem BCC (Branch on Garry 
Clear = Verzweigung bei 
nicht gesetzem Übertragflag) 
oder mit einem BCS (Branch 
on Garry Setx = Verzwei- 
gung bei gesetztem Flag) 
ausnutzen. Das Zero-Flag 
wird jetzt auch zurück- 
gesetzt, da das X-Register 
gleich mit 0 ist. Es wird nicht 
mehr zu LAB1 verzweigt. 
Vergleich Assembler — Basic 
bis hierher 
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Assemblerlisting 


IDFILE EGU 1824 

2 ORG 8283 

3 LDA #32 

4 LOXx #8 
SLAB1 STA DFILE,X 
6 INS 

EG CPN #0 

8 EBENE LAEI 


Basic-Listing: 

18 DFILE=1924 

29 A=32 

38 X=8 

42 POKE (DFILE+X),A 
5D X=X+1 : 
689 IF *<>9 THEN GOTO 48 
READY. 


Die nächsten 4 Pro- 
grammschritte tun im Prinzip 
das Gleiche, mit dem Unter- 
schied, daß nicht ab D-File 
sondern ab D-File + 256- 
Bytes gespeichert wird. Das 
ganze nochmal mit D-File + 
512. Wir haben nun 768 
Bytes mit Blanks aufgefüllt. 
Der Bildschirm hat aber 1000 
Bytes, d.h. wir müssen nur 
noch 232 Bytes füllen. Dieses 
Problem lösten wir folgender- 
maßen ab Zeile 17: 

Das X-Register wird mit 232 
geladen. Die Basicadresse 
wieder um 256 auf D-File + 
768 erhöht. Aber statt INX 
benutzen wir den DEX-Befehl 
und wiederholen die Schleife 
wie gewohnt. 

Danach wie gewohnt der RTS- 
Befehl, um wieder zum Basic- 
Interpreter zurückzukehren. 
Zum besseren Verständnis 
das entsprechende Basicpro- 
gramm, startet man es, 
funktioniert es deutlich wie 
unser MC-Programm. 


ı DFILE=1924 
3 A=22 

4 %=0 

5 POKE (DFILE+X),A 
E X=X+1 : IF X=256 THEN X=8 
7? IF S<£>8 THEN GOTO 5 

9 POKE (DFILE+256+X),A 

18 X=X+1 : 
11 IF %<>8 THEN GOTO 9 
13 POKE (DFILE+512+%),A 
14 X=eX+1l : 
15 IF *<>8 THEN GOTO 13 
17 %=232 

18 PCKE (DFILE+763+%),A 
19 X=4-1 : 
e8 IF XC>8 THEN GOTO 18 
21 END 


Nun wollen wir daran gehen, 
unser MC-Programm zu opti- 
mieren, d.h. wir wollen ver- 
suchen, ob sich das Pro- 
gramm speichermäßig ver- 


IF x=2568 THEN x-gadresse Ist 


IF %=256 THEN %=8 


kleinern läßt. 
Dazu folgendes: Der CPX- 


Befehl setzt, genau wie CMP- 


(Vergleich mit Akku) oder CPY 
(Vergleich mit Y-Register), die 
Flags. Eins davon wird beim 
BNE-Befehl abgefragt. Bei 
vielen Befehlen werden auch 
die Flags gesetzt, ohne daß 
‘Yynan dafür extra vergleichen 
muß. Die CPU prüft dann im- 
mer auf ”0”. Dieses passiert 


IF =256 THEN X%=8 


auch bei dem INX und DEX- 
Befehl. 

Wir könnten also einfach hin- 
gehen und die CPX # Befehle 
weglassen. Das Programm 
sähe dann so aus: 


IDFILE Eau 1224 

2 ORG 828 

3 LDA #32 

4 LDOX #8 

SLABI STA DFILE,X 

6 INS 

hr BNE LABI 

SLABE  STA DFILE+256,X 
t=} INX 

10 BNE LAB2 

NILAEB3  STA DFILE+512,X 
12 IN 

13 BNE LAB3 

14 LDx #232 

ISLABA STA DFILE+768,X 
16 DEX - 

17 BNE LAB4 

18 RTS 


Außerdem sind die Zeilen 
5,6,7 fast gleich mit 8,9,10 
und 11,12,13. Könnte man 
nicht versuchen während des 
Programmablaufs nach ei- 
nem Schleifenende die Basis- 
adresse DFILE und 256 zu er- 
höhen und danach die gleiche 
Schleife noch einmal zu 
durchlaufen. Dazu muß man 
wissen, wie der Sta Befehl in 
Maschinencode aussieht. In 
unserem indizierten Beispiel 


9D Hex +2 Byte 

Basicadresse 

Das 1. Byte der Basic- 
das soge- 


nannte Low-Byte, das 2. 
das Highbyte. 
In unserem Falle: 


Basicadresse ist 1024 


IF %=(C-1) THEN =3255 


= Hex 0400 

Hex 04 - Highbyte 

Hex 00 - Lowbyte 

Da das Lowbyte aber zuerst 
gebraucht wird sieht der "Be- 
fehl 5” STA DFILE,X in Ma- 


Compuhe mik 


schinencode so aus: 

9D 00 04 

Erhöht man nun die 04 um 1 
so erhält man Hexadezimal 
die Adresse, 0500 und das ist 
dezimal 1280. 

Das ist aber auch eine. Er- 
höhung der Basisadresse und 
256, also genau das was wir 
wollen. Da wir aber 3 x die 
Adresse erhöhen müssen, 
brauchen wir einen Zähler. 
Dazu eignet sich das Y- 
Register. Sehen wir uns das 
Programm an: 


IDFILE Eau 1824 

2 ORG 828 

3 LDA #32 

4 LDX #8 

S LDOY #3 
EeLABI SsTA DFILE,X 
2 INX 

8 BNE LÄABI 

9 Inc LABI+Z 
18 DEY 

11 BNE LABI1 

12 LOxX #232 
13LAB2 STA DFILE+768,% 
14 DEX 

15 BNE LAB2 

16 RTS 


Dieses Programm hat aller- 
dings einen Fehler: Ist das 
Programm einmal gelaufen, 
so sollte man es kein 2. Mal 
starten, da sonst die Adresse 
DFILE nicht mehr 1024 ist. 
Wir müssen also wieder dafür 


‚sorgen, daß der ursprüngliche 


Zustand wieder hergestellt 
wird. Dies erreichen wir durch 


folgende Einfügungen ab 
Zeile 15. 

16 LDA #8 

17 sSTA LABI+1 

18 LDA #4 

19 STA LABI+2 


Diese Einfügungen stellen 
sicher, daß die Basisadresse 
nach Ablauf des Programms 
wieder die ist, die sie zu An- 
fang war. Sie werden nun viel- 
leicht bemängeln, daß das 
Programm nun doch durch 
diese Anderung nicht kürzer 
geworden ist. Da haben Sie 
recht. Aber stellen Sie sich 
vor, die Schleife ist statt 3 
Zeilen 20 oder noch mehr Zei- 
len. Dann rentiert sich diese 
Art der Programmierung. Man 
nennt dies übrigens: Eigen- 
modifikation eines Pro- 
gramms. Das Programm än- 
dert sich also selbst. (hf) 
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Superdiskette mit Dateiverwaltung, 
Monitor und Zeichensätzen, sowie 
Bauanleitung für 6-mal-schnellere 
1541 und Bauanleitung für 
Spurjustage mit LED-Anzeige für 
1541 incl. Software. Bauanleitungs- 
ausgabe wahlweise. Auf Drucker oder TV. 
DM 75,- gegen NN. 1/4 jährlich neue Disk 
mit Soft- & Hardware. Best.: Rottsieger 
& Heisse, PF. 130401, 5630 Remscheid 


6-64 Deutsche Anl. Colossus Chess 
+ Flight Simulator II je 15.- DM. 
Super-Disk für Einsteiger m. Anitg. 
(2 Seiten voll mit Nutzprogr. + Copy) 
für 40,- DM/nur Vork. (Scheine) an: 
Postlagernd 0431638/4000 Düsseldorf 1 


VC-20 Software! Preisgünstig! 
Liste gegen 80 Pf. Rückporto von 
S& L-Soft, Postlagernd, 
5014 Kerpenhorrem 


% % % % Hallo VC-64 User a a dr Wr 
%* Hier gibt's die aktuellste %* 
#* Software. Auswahl aus über 2500 #* 
% Progr. Viele Neuzugänge aus USA #* 
%* und GB. Info gegen 1,40 in Brfm. * 
%* Über 50 seitige Programmaus- #* 
%* wahl, Udo Göbel, Frohnhausen 471, % 
#* 4300 Essen 1, @0201/740913 %* 


6-64 7 neue Grafik- + Sound Befehle 

(Print AT, Scroll links + rechts, .. 

‚Aufruf mit Sys) + Anleitung + alle 

wichtigen POKEs + Tricks auf 

Qualitätscass. = 20 DM (Schein/Scheck) 
Lieferung in 48 Stunden! 

€. Wurzer, Grüntenweg 14, 85 Nürnberg 


6-64 120 Top-Programme für 45,- DM 
zu verkaufen. 
=06479/6%7 nach 17 Uhr 


Ara 
64er-Progr. zu Superpreisen!!l 
Info gratis! 
F. Zillich, 
Zoppoterstr. 27a, 4000 Düsseldorf 13 
WR re er 


Commodore 64 - Günstige Gele- 
genheit: Wegen Systemwechsel 250 
Topprogramme auf Disk oder Cassette 
für nur DM 200,- Schein/Scheck 
oder NN. auch möglich 70 Prg. für 
nur DM 50,.-. Bestellungen an: 

P. Weber, Alter Teichweg 137 F, 
2000 Hamburg 70 


VC-20 Software billig, billig 
Action, Organisation, Spiele 
Ausführl. Liste gegen 80 Pf. Porto 
anfordern bei: TH. Schläger, 
Elsastraße 28, 2000 Hamburg 76 


BIETE AN HARDWARE 


"Verkaufe VC-20 mit Modulbox (6 Stckpl.) 
+ 64kb Erw. (Schalthar) + Datasette, 
sowie Joystick & Paddles. Außerdem Mas- 
sen an Software & etliche Extraliteratur 
(z.B. Speicherbelegung der Zero- und diver- 
ser anderer Pages). Das alles für DM 805 
bei Andreas Pohlke, @030/433 53 24" 


a2 22 2 222 ee 
Soft- und Hardware für VC-20 + 64 
Akustik-Koppler, Schnittstelle, 
Doppellauf-Floppy Speichererweiterung 
40/80 Zeichenkarte und Bustreib. 
für 1541, macht Ihre Floppy 8 x 
schneller beim Einlesen. Katalog 
anfordern bei 
Norbert Flesch, Lippspringerstraße 14, 
4650 Gelsenkirchen 
20209/395447 


VC-20 Eprommer 70,- KFC-Mod. 75,- 
(orig.)/Epromplatinen usw. abzugeben, 
Moers, @02841/34117 nach 17 Uhr 


VC-20 +8K+16K+24K+32K+36 Progr. 
zu verk. VB 390,- DM, K. Scherkenbach, 
02267/4870 


Verkaufe 6-64 + Datas. + Gar. + Prog. 
für DM 740,- 
Bei Int. An: Monika Wohlfell, 
Danziger Weg 5. 5434 Dernbach 


‘® Spectrum ® Spectrum ® Spectrum ® 


Erw. a. 48K 89,- DM, 80K 189,- DM prog. 
Joyst. Intf. 110,- DM, Joyst.Interf. 53,- 
DM dK’Keybord 188,- DM Fuller FDS Key- 
bord 238,- DM Light Pen 84,- DM Floppy 
System lieferbar. Info anfordern, 
Meyer, Rahserstraße 58, 4060 Viersen, 
@02162/2296% Händleranf. erwünscht 


Super Joystick Quickshot Il DM 39,50 
für VC-20/C-64 und Atari VCS 

Reset-Taster für VC-20/C-64 DM 10,- 
5,25 Zoll Disketten 10 St. DM 56,- 
Mignon NC-Akkus 10 St. DM 29,- 


Leicht, 8752 Mainaschaff, #06021/74704 


WERSI 
Wico-Soft 


Auftrag für Gelegenheitsanzeigen in Gompute mit 


Inserentenverzeichnis 


Iti Datentechnik 
SM Software 


Verkaufe: VC-20+Datasette+ 16K+8K+ 
3 Bücher + 2 Module + Spiele für 700 DM 
v. Bucheinzelverkauf ®069/372872 


Le 2 2 2 2 2 2 ee 
Soft- und Hardware für VC-20 + 64 
Akustik-Koppler, Schnittstelle, 
Doppellauf-Floppy Speichererw. 
40/80 Zeichenkarte und Bustreib. 
für 1541, macht Ihre Floppy 8 x 
schneller beim Einlesen. Katalog 
anfordern bei 
Norbert Flesch, Lippspringerstr. 14 
4650 Gelsenkirchen 
=0209/395447 
222 2 2 2 2 a een 


Verk. 6-64 + Rec. + Zubehör mit 11 Mo 
Garantie für 700,- DM @09562/8843 


xx x x 
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An Gompute mit EN EER 

Fuldaer Straße 6 j Abo.-Nr 
Postfach 629 

3440 Eschwege Unterschrift Ich zahle sofort nach Rechnungserhalt. Datum 


Unter der Rubrik "Kleinanzeigen’- 
veröffentlichen wir Gele- 
genheltsanzeigen für Verkaufsan- 
gebote, Kauf- und Tauschgesuche, 
Kontaktaufnahme bzw. Erfahrungs- 
austausch usw. 


Ich wünsche folgenden Text zu veröffentlichen, mindestens 3 Zeilen: 


Preise für Kleinanzeigen’: 
Private Kleinanzeige je Druckzeile 
3,50 DM inkl. MwSt. Chiffregebühr 
je Anzeige 10,- DM. 


Gewerbliche Gelegenheitsanzeige 
je Druckzeile 7,50 DM inkl. MwSt. 
(dürfen nicht unter Chiffre er- 


scheinen). BERNARSERNKSSDERZEMASERBSRENANDENR 
K le inanzeigen Zutreffendes ankreuzen 
Jetzt noch suche U] Software suche [] Hardware D Tausch DD) Versch. 


preiswerter biete an [] Hardware D Kontakte D) Chiffre 
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SUCHRÄTSEL 


Liebe Compute mit Leser, 


an dieser Stelle kommt wieder unser 
Preisrätsel. Auch diesmal gibt es wieder 
attraktive Preise zu gewinnen. Wie bereits 
letzte Woche angekündigt, wollen wir dieForm 
unserer Rätsel ein bißchen varüeren. Wir ha- 
ben uns einige Gedanken gemacht und wollen 
in dieser Ausgabe ein Denk- und Ratespiel 
beginnen. 

In Anlehnung an eine Fernsehsendung, wer- 
den wir Ihnen eine kurze Umschreibung des 
gesuchten Begriffes geben. Ebenfalls geben 
wir Ihnen die Anzahl der Buchstaben und eine 
kleine Hilfe. 


Beispiel: Weiches Produkt 


Die Lösung lautet Software (soft für weich, Pro- 
dukt = ware) 

Sie sehen, ganz so ernst wollen wiresnatürlich 
nicht nehmen. Also, dann lassen Sie Ihrer 
Phantasie und Ihrem Humor freien Lauf, wir 
wünschen auf jeden Fall viel Spaß und selbst- 
verständlich viel Glück!! 


P.S.: Es handelt sich auf jeden Fall um einen 
Begriff aus der Computerwelt. 


Umschreibung des gesuchten Begriffes: 


Körperteillektüre 


Einsendeschluß ist der 13.10.84 


Einsendungen bitte unter Angabe des Kennwortes ”Such- 
rätsel Nr. 41/84” an die Adresse des Verlages. 


Bitte geben Sie an, für welchen Commodore Sie eine Kas- 
sette wünschen. 


Der Rechtsweg ist wie immer ausgeschlossen. Nicht teil- 
nahmeberechtigt sind Mitarbeiter des Roeske-Verlages 
und deren Angehörigen. 


1. Preis 2. Preis 3. Preis 
5 3 2 
Kassetten Kassetten Kassetten 


. und hier noch zwei Zeitschriften aus dem ROESKE Verlag, die Sie 
unbedingt kennenlernen sollten! 


»HOMECOMPUTER« 


erscheint am 1. Montag jeden Monats. 


»CPU« 


erscheint monatlich in der 
Mitte eines Monats. 


er (Atari) > 
is ua 


sans Atem m ga 
121.81) ° 


Rinne {6-84} 


en In beiden Zeitschriften finden Sie jeden 
ee, nn Monat circa 18 tolle 

Spiel- und Anwenderprogramme, 
für die 
bekanntesten Heimcomputer: zum Beispiel 
den ZX-81, TI-99/4A, Commodore 64, 
VC-20, Dragon 32, TRS-80, Sharp, Laser, 
Atari, Apple, Bit 90 und andere. 


Außerdem jede Menge Informationen über 
Neuerscheinungen aus der Soft- und 
Hardware-Branche, von Messen, 
Ausstellungen, Computertests, Tips & 
Tricks. 
Sie finden unter unseren Rubriken 
regelmäßig die Nußknackerseiten, 
Leserbriefe, Interviews, Clubinfos, 
das Wörterbuch, HOMECOMPUTER- 
Bücherkiste, CPU-Bibliothek, den 
Kassettenservice und den 
. Kleinanzeigenteil. 


Haben Sie Fragen zu unseren Heften; 


ea! 17 Spitzen-Spielo 
rufen Sie uns an: En Drake am TO 


ROESKE VERLAG en 
Redaktion 
2.05651/8558 


